View previous topic :: View next topic
|
Author |
Message |
Lord.of.Wind
New User
Joined: 17 Nov 2005 Posts: 60
|
|
|
|
Gurus:
Code: |
//**********************************************************
//*STEP TO RUN REXX TO CREATE FILE FOR FTP
//**********************************************************
//STEP1 EXEC PGM=IKJEFT01,TIME=800
//SYSPRINT DD SYSOUT=&MSGOUT
//SYSUDUMP DD SYSOUT=&QDUMP
//OUTPUT DD SYSOUT=&MSGOUT
//SYSTSPRT DD SYSOUT=&MSGOUT
//SYSTSIN DD DSN=F8M2PB.JCLCNTL(C2B8QE50),DISP=SHR
//*
//*********************************************************************
//* COPY REPORT TO WSF2 *
//*********************************************************************
//STEP2 EXEC PGM=IEBGENER,TIME=800,REGION=256K
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=&MSGOUT
//SYSUT1 DD DSN=????
//SYSUT2 DD SYSOUT=(U,,2Z32),DEST=WSF82R,
// DCB=(LRECL=133,BLKSIZE=0,RECFM=FBA)
//*********** END *****************************************************
|
In step1, a dynamically allocated ps is generated by REXX, such as file1.d090929. (090929 is the current date in yymmdd). And in step2, the file should be sent to a form ID 2Z32.
Now Gurus, I want to know how can step2 be embbed in step1, as it is not possible to use the dynamic file name in SYSUT1 of step2? I want to use rexx to execute step2. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
What have you tried ? |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
Code: |
//**********************************************************
//*STEP TO RUN REXX TO CREATE FILE FOR FTP
//* and COPY REPORT TO WSF2 *
//**********************************************************
//STEP1 EXEC PGM=IKJEFT01,TIME=800
//SYSPRINT DD SYSOUT=&MSGOUT
//SYSUDUMP DD SYSOUT=&QDUMP
//OUTPUT DD SYSOUT=&MSGOUT
//SYSTSPRT DD SYSOUT=&MSGOUT
//SYSTSIN DD DSN=F8M2PB.JCLCNTL(C2B8QE50),DISP=SHR
//*
//SYSUT2 DD SYSOUT=(U,,2Z32),DEST=WSF82R,
// DCB=(LRECL=133,BLKSIZE=0,RECFM=FBA) |
?? |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
From your rexx, invoke IEBGENER to copy from your dynamically created file to the print file. |
|
Back to top |
|
|
|