SAMOLESAM
New User
Joined: 19 May 2010
Posts: 2
Location: USA
|
|
|
|
From JCL - notice the XXX999 literal via the PGRM symbolic.
| Code: |
//XXX999 EXEC BTCHRET,PGRM='XXX999'
|
From PROC - notice the symbolic PGRM on the F1 & F2 DD's -
notice the ELEMENT ID Header.
| Code: |
//SYSIN DD *
JOINKEYS FILE=F1,
FIELDS=(001,06,A) *RETROFITS
JOINKEYS FILE=F2,
FIELDS=(001,06,A) *VANILLA SOURCE
REFORMAT FIELDS=(F1:1,80,F2:1,80)
SORT FIELDS=COPY
OUTFIL FNAMES=OLDVNEW,NODETAIL,
OUTREC=(001:081,072,
075:001,080),
HEADER2=(001:'ELEMENT ID : ',
050:'DATE: ',&DATE,//,
001:'ORIGINAL-CODE',
030:'RETROFIT-CODE'/)
//SORTJNF1 DD DSN=RETROFIT(&PGRM),DISP=SHR
//*
//SORTJNF2 DD DSN=VANILLA(&PGRM),DISP=SHR
//*
//OLDVNEW DD SYSOUT=*
|
Current Report From Sort:
| Code: |
********************************* TOP OF DATA ******************
ELEMENT ID : DATE: 09/29/10
ORIGINAL-CODE RETROFIT-CODE
******************************** BOTTOM OF DATA ****************
|
Desired Report - Notice the literal from the PGRM symbolic on the report after Element ID.
| Code: |
********************************* TOP OF DATA ******************
ELEMENT ID : XXX999 DATE: 09/29/10
ORIGINAL-CODE RETROFIT-CODE
******************************** BOTTOM OF DATA ****************
|
I do realize that I could code a different step for each PGRM and hard code the literal after the element ID. However, if feasible, my desire is to have the literal pulled from the symbolic and written to the report each time the PROC step is executed.
Is it feasible to do what I desire? Please let me know as time permits. |
|
