Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
can anyone convert Job into a CLIST program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
Author Message
shrivatsa

Active User


Joined: 17 Mar 2006
Posts: 159
Location: Pune
PostPosted: Thu Apr 06, 2006 1:55 pm    Post subject: can anyone convert Job into a CLIST program
 Reply with quote
Hi All,

This Job is to copy the Tape file into to PS
Code:

/*JOBPARM   T=(0,29),L=99,HOLD=ALL,TAPE=1                         
/*ROUTE PRINT U66                                                 
//COPY      EXEC PGM=FILEAID                                       
//SYSPRINT  DD SYSOUT=A                                           
//SYSLIST   DD SYSOUT=A                                           
//DD01      DD DSN=xxxx.xxxx.xxxx,DISP=SHR $TAPE         
//DD01O     DD DSN=xxx.xxxx.xxx,DISP=(,CATLG,DELETE),         
//          UNIT=SYSD@,LABEL=RETPD=90,                             
//          DCB=(BLKSIZE=58200,LRECL=202,RECFM=FB),               
//          SPACE=(58200,(14000,135),RLSE,,ROUND)                 
//SYSIN    DD  *                                                   
$$DD01 COPY                                                       
/*                                                                 


Please help

Thanks
Shri
Back to top
View user's profile Send private message
References
shrivatsa

Active User


Joined: 17 Mar 2006
Posts: 159
Location: Pune
PostPosted: Thu Apr 06, 2006 4:13 pm    Post subject: Re: can anyone convert Job into a CLIST program
 Reply with quote
hi,

I will reframe my question as
Is it possible to copy the Tapefile into DASD through CLIST?

If possible give me an example CLIST.

Thanks
Shri
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 3265
Location: Charlotte,NC USA
PostPosted: Thu Apr 06, 2006 5:47 pm    Post subject: Re: can anyone convert Job into a CLIST program
 Reply with quote
shrivatsa wrote:
If possible give me an example CLIST.


Code:

//STEP1     EXEC PGM=ICEGENER                                   
//SYSUT1    DD   *                                               
PROC 0                                                           
CONTROL MSG NOLIST NOCONLIST NOSYMLIST NOFLUSH                   
ERROR DO                                                         
 SET &RET = &LASTCC                                             
 RETURN                                                         
END                                                             
CALL *(FILEAID)                                                 
EXIT CODE(&MAXCC)                                               
/*                                                               
//SYSUT2   DD   DSN=&TEMP(COPY),DISP=(,PASS),UNIT=VIO,           
//         SPACE=(CYL,(1,1,1)),RECFM=FB,LRECL=80,BLKSIZE=0       
//SYSPRINT DD   SYSOUT=*                                         
//SYSIN    DD   DUMMY                                           
//*                                                       
//COPY     EXEC PGM=IKJEFT01,REGION=1M,DYNAMNBR=50       
//SYSTSPRT DD   SYSOUT=*                                 
//SYSPROC  DD   DSN=&TEMP,DISP=(OLD,DELETE)               
//SYSTSIN  DD   *                                         
%COPY                                                     
/*                                                       
//SYSPRINT DD SYSOUT=*                                   
//SYSLIST  DD SYSOUT=*                                   
//DD01     DD DSN=XXXX.XXXX.XXXX,DISP=SHR                 
//DD01O    DD DSN=TTT.XXXX.TTT,DISP=(,CATLG,DELETE),     
//         UNIT=SYSD@,LABEL=RETPD=90,                     
//         DCB=(BLKSIZE=58200,LRECL=202,RECFM=FB),       
//         SPACE=(58200,(14000,135),RLSE,,ROUND)         
//SYSIN    DD  *                                         
$$DD01 COPY                                               
/*                                                       
//*                                                       
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1