Joined: 02 Dec 2002 Posts: 70 Topics: 19 Location: California
Posted: Thu May 15, 2003 3:57 pm Post subject: Get the source Code PDS name
Code:
//COBCOMP EXEC CMPPROC,CNTY=&CNTY,MEMNAME=MYPRGM
//L.SYSLIB DD DSN=XXXX.TEST.LOADLIB,DISP=SHR
//L.SYSLMOD DD DSN=XXXX.TEST.LOADLIB,DISP=SHR
//L.SYSPRINT DD DSN=&&LSYSPRNT,
// DISP=(,PASS),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0),
// SPACE=(TRK,(10,50),RLSE)
//********************************************************************
//* Send the SYSPRINT Generated in the above step to the spool
//********************************************************************
//L EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&&LSYSPRNT,DISP=(SHR,PASS)
//SYSUT2 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*******************************************************************
//* Send the Load Module PDS name to the spool
//*******************************************************************
//CHKLMPDS EXEC PGM=SORT
//SORTIN DD DSN=&&LSYSPRNT,DISP=(SHR,DELETE)
//SORTWK01 DD DSN=&&TEMP01,DISP=(,PASS)
//SORTWK02 DD DSN=&&TEMP02,DISP=(,PASS)
//SORTWK03 DD DSN=&&TEMP03,DISP=(,PASS)
//SORTWK04 DD DSN=&&TEMP04,DISP=(,PASS)
//SORTOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OUTFIL OUTREC=(C'Load Module PDS is.... ',25,36)
INCLUDE COND=(5,12,CH,EQ,C'LOAD LIBRARY')
SORT FIELDS=COPY
/*
//*********************************************************************
//* Run the program
//*********************************************************************
//MYPRGM EXEC PGM=MYPRGM
//STEPLIB DD DSN=*.COBCOMP.L.SYSLMOD,DISP=SHR
// DD DSN=XXXX.TEST.TESTLIB2,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//
In the above example we are using the Proc(CB3PBC) to compile our cobol programs.The Proc will pick the cobol source
from a fixed PDS say XXXX.COBOL.SOURCE.I am able to capture the load Module name and send it to the spool.
Now my question is, I want to capture the cobol source PDS name and print it on the spool. _________________ Venkataramana
-- Good judgement comes from experience, and often experience comes from bad judgement.
Last edited by Venkata Ramana Reddy on Fri May 16, 2003 10:08 am; edited 1 time in total
Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
Posted: Thu May 15, 2003 11:21 pm Post subject:
The answer must lie in the compile PROC. Firstly, how exactly do you compile your programs ? Is the compile JCL created on the fly? Or, you goto the compile JCL and make changes manually? (We use the former and I think, you might be doing the same.)
In either case, if you check the compile for syntax errors (I mean, "expand" the compile JCL; which is what the JCL syntax checking jobs do firstly), you must be able to see the source PDS.
I would suggest, you look in the COBOL compile PROC. _________________ ALL opinions are welcome.
Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Joined: 02 Dec 2002 Posts: 70 Topics: 19 Location: California
Posted: Tue May 27, 2003 12:04 pm Post subject:
Cogito-Ergo-Sum,
Sorry for the late reply.We compile our programs every time we run the programs.If you observe my example,we will compile our programs first and then then run the programs in the subsequent steps.
I know I can see the Source PDS name manually.I want to capture the PDS name and just print on the spool(just like what I am doing for Linkedit). _________________ Venkataramana
-- Good judgement comes from experience, and often experience comes from bad judgement.
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
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
