Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


     
 
MAINFRAME - TIP OF THE DAY : When you specified V for RECFM parameter, LRECL value is largest record in the file plus 4 bytes. These four bytes contain the actual length of each variable length record in the file

Google
 
Web mainframegurukul.com

HOW TO SELECT SOME PORTION FROM A REPORT?

 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> DFSORT , ICETOOL & Utilities
  View previous topic :: View next topic  
Author Message
anilanju
Member


Joined: 10 Nov 2008
Posts: 47

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Mon Nov 10, 2008 7:23 pm    Post subject: HOW TO SELECT SOME PORTION FROM A REPORT? Reply with quote

Hello all

I am a new member, and i am facing a problem.

I have a report which has ouput deatils of many programs, i need to pick
the data of some programs and copy it to some other PS file.

The format of the report is:
Heading and then the data.

So when i try to use sorting, it just gives me the heading.
What needs to be done so that i get the data also along with the report.

Thanks
Anubhuti
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.

Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Mon Nov 10, 2008 9:09 pm    Post subject: Reply with quote

You haven't given enough information for anyone to help you. You need to explain in more detail what you're trying to do. Show an example of the records in your input file and what you expect for output. Explain the "rules" for getting from input to output. Give the RECFM and LRECL of your input file. Give the starting position, length and format of each relevant field.

(I removed your other thread. There's no reason to have another thread for the same question. Just post additional information to this thread.)
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
anilanju
Member


Joined: 10 Nov 2008
Posts: 47

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Mon Nov 10, 2008 9:24 pm    Post subject: Reply with quote

Hi Frank

i have mailed you my querry in detail, If you receive my mail
please notify me once.
Thanks
Anubhuti
id:anilanju
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Mon Nov 10, 2008 10:36 pm    Post subject: Reply with quote

Based on the information you sent me offline, here's a DFSORT job that will do what you asked for. I assumed your input file and output files have RECFM=FB and LRECL=80, but you can change the job appropriately for other attributes. The job uses DFSORT's new WHEN=GROUP function available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008).

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD *
1PROGRAM ID : TPMN300  FSADMFIST1                       ABC
  REPORT  ID : TPMN300.02                                 X
                                                  NJR COSTI
0 APPLICATION : NJR     SOURCE : AB     DATA TYPE : HOURS
0                              -----------INPUT------------
  CORP ID  FIST1               RECORDS                AMOUN
.
.
.
1PROGRAM ID : TPMN500  FSADMFIST1                       ABC
  REPORT  ID : TPMN300.02                                 X
                                                  NJR COSTI
0 APPLICATION : NJR     SOURCE : AB     DATA TYPE : HOURS
0                              -----------INPUT------------
 CORP ID  FIST1               RECORDS
.
.
.
0PROGRAM ID : TPMN400  FSADMFIST1
  REPORT ID : TPMN400.01
                               COMMON SUSPENSE
0 APPLICATION : NJR      SOURCE : AB     DATA TYP
0                                -----------INPUT
 CORP ID  FIST1                  RECORDS
-JOURNAL - NJ660X1131
 ACTUALS  DEBITS                  47,427
          CREDITS                 47,427
.
.
.
/*
//SORTOUT DD SYSOUT=*
//SYSIN    DD    *
  OPTION COPY
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(2,12,CH,EQ,C'PROGRAM ID : '),
     PUSH=(81:15,7))
  OUTFIL INCLUDE=(81,7,SS,EQ,C'TPMN300,TPMN400'),
    BUILD=(1,80)
/*


If you don't have z/OS DFSORT PTF UK90013, ask your System Programmer to install it (it's free).

For complete details on the new functions available with PTF UK90013, see:

www.ibm.com/systems/support/storage/software/sort/mvs/ugpf/
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Natarajan
Moderator


Joined: 10 Oct 2008
Posts: 537
Location: chennai

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Tue Nov 11, 2008 11:49 am    Post subject: Reply with quote

It will be helpful to board member, if question details are provided here.
_________________
Natarajan
Chennai
Back to top
View user's profile Send private message Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
anilanju
Member


Joined: 10 Nov 2008
Posts: 47

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Tue Nov 11, 2008 12:01 pm    Post subject: Reply with quote

HI Frank

Thanks a lot, but it giving me syntex error and statement defining error again n again.

Please help.

My recold lenght is 133, and format is FBA

Thanks

Anu
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
anilanju
Member


Joined: 10 Nov 2008
Posts: 47

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Tue Nov 11, 2008 12:23 pm    Post subject: Reply with quote

Hi
i am getting this syntex error:


Code:

            INREC IFTHEN=(WHEN=GROUP,BEGIN=(2,13,CH,EQ,C'PROGRAM D : '),       
                               ?                                               
ICE007A 0 SYNTAX ERROR                                                         
                    PUSH=(134:2,7))                                             
                    ?                                                           


Regards:
Anu
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Tue Nov 11, 2008 8:30 pm    Post subject: Reply with quote

That syntax error indicates your shop doesn't have z/OS DFSORT V1R5 PTF UK90013 (July, 2008) installed. Ask your System Programmer to install it (it's free).

Quote:

INREC IFTHEN=(WHEN=GROUP,BEGIN=(2,13,CH,EQ,C'PROGRAM D : '),
PUSH=(134:2,7))


Why are you checking for 'PROGRAM D :'? That doesn't correspond to the input you sent me. And why would you do the PUSH for 2,7 - that would put 'PROGRAM' in every record which wouldn't allow you to select particular groups. You want to push the value that identifies the groups. In my example, that's the TPMNxxx value. You need to use the correct value for your situation.
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort


Last edited by Frank Yaeger on Tue Nov 11, 2008 8:40 pm; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Tue Nov 11, 2008 8:34 pm    Post subject: Reply with quote

Quote:
It will be helpful to board member, if question details are provided here.


The OP has input records as shown in the job I posted. It has groups of records that have 'PROGRAM ID : TPMNxxx' starting in position 2. He wants to extract the groups of records for TPMN300 and TPMN500.
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
anilanju
Member


Joined: 10 Nov 2008
Posts: 47

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Nov 12, 2008 6:14 pm    Post subject: Reply with quote

Hi frank

I have written
INREC IFTHEN=(WHEN=GROUP,BEGIN=(2,13,CH,EQ,C'PROGRAM ID : '),
program id only, by mistake it changed to program D.
and i tried PUSH=(134:15,7))

but still d same syntex problem..

SYNTAX ERROR
PUSH=(134:15,7))
?


Regards
Anu
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Nov 12, 2008 9:18 pm    Post subject: Reply with quote

Quote:
but still same syntex problem..


And still same reason:

Quote:
That syntax error indicates your shop doesn't have z/OS DFSORT V1R5 PTF UK90013 (July, 2008) installed. Ask your System Programmer to install it (it's free).

_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
academyindia4
Guest





Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Mon Jan 25, 2016 10:36 pm    Post subject: Topic deleted by Admin Reply with quote

<< Content deleted By Admin >>
Back to top
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Display posts from previous:   
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> DFSORT , ICETOOL & Utilities All times are GMT + 5 Hours
Page 1 of 1



 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Cobol Tutorial
This cobol tutorial covers most of the important topics like STRING, UNSTRING, COMP, COMP-3.....
DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. Explains in simple language. Some Chapters are locked, Forum members have free access to these chapters
CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming...
JCL Tutorial
This is most popular JCL tutorial from mainframegurukul. It does contain important jcl ....
SORT Tutorial
This Tutorial covers all important aspects of DFSORT. Has more SORT examples
INTERVIEW Questions
This page covers important interview questions
Mainframe Jobs
Mainframe Jobs posted by members of mainframegurukul forum
FaceBook Page
MainframeGurukul FaceBook Page
LinkedIn Page
MainframeGurkul Linkedin Page

This widget requires Flash Player 9 or better







Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials || Mainframe CICS tutorial|| Mainframe COBOL Tutorial

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB

mainframetopic-3589.html