Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Get the GDG name in the report.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
bhagyac

New User


Joined: 17 Apr 2008
Posts: 44
Location: bangalore

PostPosted: Tue Jul 01, 2008 4:11 pm    Post subject: Get the GDG name in the report.
Reply with quote

Hi all,

Please help me with this query.
This is my JCL
Code:

STEP005  EXEC  PGM=plipgm1
STEPLIB  DD DSN=AAA.BBB.CCC.LOAD,DISP=SHR               
INFILE   DD DSN=AAA.BBB.CCC.INPUT(0),DISP=SHR
REPORT  DD DSN=AAA.BBB.CCC.REPORT(+1),     
            DISP=(,CATLG,DELETE),                         
            UNIT=(SYSDA,5),                                   
            SPACE=(CYL,(10,10)),                             
            LRECL=133,BLKSIZE=0,RECFM=FB
SYSPRINT DD SYSOUT=*


In the above JCL AAA.BBB.CCC.INPUT(0), is my input file(GDG)."plipgm" is the PL/I program. It takes the last input file and processes. I'm generating a report AAA.BBB.CCC.REPORT(+1).
In that report I want to print for which input GDG the report is generated.

Thank you.
Back to top
View user's profile Send private message

UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 755
Location: Germany

PostPosted: Tue Jul 01, 2008 8:52 pm    Post subject:
Reply with quote

Hi bhagyac !

You could call a Assembler-Programm. This one could read the JobFileControlBlocks via RDJFCB / IHADCB to extract the komplete DSN, wich is allocated by the system.

Mostly companies have build some UtilityProgramms like this.
Ask your pers for such a programm.
Back to top
View user's profile Send private message
bhagyac

New User


Joined: 17 Apr 2008
Posts: 44
Location: bangalore

PostPosted: Wed Jul 02, 2008 9:29 am    Post subject:
Reply with quote

hi UmeySan,

Thank you. let me try to get that.

Is there any other possible method to get this?
Using REXX and PLI.. icon_sad.gif icon_confused.gif
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Jul 02, 2008 12:18 pm    Post subject:
Reply with quote

You can with REXX
Code:

X   = LISTDSI("DUMPREF  FILE")
DUMPDSN = SYSDSNAME
Back to top
View user's profile Send private message
bhagyac

New User


Joined: 17 Apr 2008
Posts: 44
Location: bangalore

PostPosted: Wed Jul 02, 2008 9:04 pm    Post subject:
Reply with quote

Hi expat,

Thank you for your help.

But i couldn't understand how would i use that in my above JCL.
Can you please help?

Thank you.
Back to top
View user's profile Send private message
Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Wed Jul 02, 2008 10:08 pm    Post subject:
Reply with quote

You could use the following to get the generation number into a file, then process that file how you need to in your report:
Code:
//STEP10  EXEC PGM=IDCAMS                               
//DD1       DD DSN=AAA.BBB.CCC.INPUT(0),DISP=SHR
//SYSPRINT  DD DSN=HLQ...,
//             DISP=(NEW,CATLG,DELETE),         
//             UNIT=DISK,SPACE=(TRK,(1,1),RLSE),
//             DCB=(RECFM=FB,...)
//SYSIN     DD *                                         
 PRINT INFILE(DD1) COUNT(0) CHAR                         
/*                                                       
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Splitting of single report to seperat... abdulrafi TSO/ISPF 7 Mon Mar 27, 2017 3:59 pm
No new posts Easytrieve report shalem CA Products 4 Sun Feb 26, 2017 9:08 am
No new posts Detailed Transaction History report f... Kyle Carroll CICS 5 Tue Oct 18, 2016 12:42 am
No new posts Easytrieve - Report writing - Only 1 ... Abhi Nature CA Products 2 Wed Sep 14, 2016 11:40 am
No new posts Daily report to be extracted from CA ... polymathtarun DFSORT/ICETOOL 5 Mon Jul 11, 2016 4:33 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us