krsenthil85
New User
Joined: 31 Aug 2007 Posts: 55 Location: bangalore
|
|
|
|
Hi,
Any body can help me in EZTPA00 issue. I am using this utility in my job and the this step looks like this.
Code: |
//S1160 EXEC PGM=EZTPA00
//PANDD1 DD DSN=TPMS.PANVALET.SOURCE,
// DISP=SHR
//SYSPRINT DD SYSOUT=H
//SYSOUT DD SYSOUT=H
//*SORTWK01 DD UNIT=SYSDA,SPACE=(6000,(15000),ROUND)
//*SORTWK02 DD UNIT=SYSDA,SPACE=(6000,(15000),ROUND)
//*SORTWK03 DD UNIT=SYSDA,SPACE=(6000,(15000),ROUND)
//*SORTWK04 DD UNIT=SYSDA,SPACE=(6000,(15000),ROUND)
//EZTVFM DD SPACE=(4096,(1000,1000),RLSE),
// UNIT=SYSDA
//FILEIN DD DSN=GRT.GIPISXR.RDX.AGENT.D131207,
// DISP=SHR
//FILEOUT DD DSN=GRT.GIPISXR.RDX.AGENT.OUT2,
// DISP=(NEW,CATLG,DELETE),
// DCB=(BLKSIZE=7500,LRECL=300,RECFM=FB),
// SPACE=(CYL,(10,50),RLSE),
// UNIT=SYSDA
//SYSIN DD *
PARM DEBUG (STATE FLOW)
FILE FILEIN FB(300, 27900)
FILE-IN-REC W 300 A
FILE FILEOUT FB(300, 27900)
FILE-OUT-REC W 300 A
**
WK-HDROUT-REC W 300 A
WK-LABEL1 WK-HDROUT-REC 14 A
WK-EMAIL WK-HDROUT-REC +14 31 A
WK-FILLER WK-HDROUT-REC +45 255 A
JOB INPUT FILEIN
**
MOVE '$!+WORKCOMP+!$' TO WK-LABEL1
MOVE 'xxxxx@xxx.com' TO WK-EMAIL
MOVE WK-HDROUT-REC TO FILEIN
*
PUT FILEOUT FROM FILEIN
GO TO JOB
/* |
Here in the output file I am trying to add some header if the input file is empty and i have checked the empty condition in the previous step.
I am also want to add some time parameter in this header and so i used this utility. My problem is the header part is not adding in the output file, it is empty after submission. |
|