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
 

 

EZT Programs

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
krsenthil85

New User


Joined: 31 Aug 2007
Posts: 55
Location: bangalore

PostPosted: Thu Feb 21, 2008 9:35 pm    Post subject: EZT Programs
Reply with quote

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.
Back to top
View user's profile Send private message

Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Thu Feb 21, 2008 10:10 pm    Post subject:
Reply with quote

In the
Code:
JOB INPUT FILEIN
Use INIT para and write the header record.
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Why myself doing Package Bind always ... Susanta DB2 5 Thu Mar 02, 2017 10:47 pm
No new posts Cobol list of programs being called biswajit.dattagupta COBOL Programming 5 Tue Nov 01, 2016 2:10 am
No new posts Can sending 5 MB data between cobol p... Kevin Vaz CICS 12 Tue Oct 18, 2016 4:50 pm
No new posts User exit in COBOL programs ganasrinivasan PL/I & Assembler 0 Thu Aug 18, 2016 12:48 pm
No new posts "DFSRRC00 vs IKJEFT01" for ... arunsoods All Other Mainframe Topics 5 Fri Aug 12, 2016 9:54 pm


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