bartoszr
New User
Joined: 03 Jul 2006 Posts: 3
|
|
|
|
OK, I have actually found the solution in one of the ibm's redbooks:
Code: |
//*=====================================================================
//* UNLOAD MODULES FROM LIBRARIAN TO PARTITIONED DATA SET
//*====================================================================*
//* 1. GENERATE LIBRARIAN -SEL STATEMENTS WITH LIBRARIAN GPO *
//* INTO TEMP. DATA SET (DDNAME=OSJOB) *
//*--------------------------------------------------------------------*
//SELGPO EXEC PGM=AFLBPROG,PARM='NRJS,NJTA'
//MASTER DD DISP=SHR,DSN=LIBRA.MIGCOPY
//OSJOB DD DISP=(,PASS),DSN=&&OSJOB1,
// UNIT=SYSDA,SPACE=(TRK,(25,10),RLSE),
// DCB=(RV.PATTERN,LRECL=80,BLKSIZE=6080,RECFM=FB)
//SYSPRINT DD SYSOUT=Y,DCB=RECFM=FBA
//SYSIN DD *
-OPT GPO
-OPT TEMPS
-SEL NAME=,EXEC
-END
//*
//*--------------------------------------------------------------------*
//* 2. UNLOAD ALL MEMBERS SPECIFIED IN SYSIN FILE *
//* FROM LIBRARIAN TO PDS (DDNAME=OSJOB) *
//*--------------------------------------------------------------------*
//UNLOAD EXEC PGM=AFLBPROG,PARM='NRJS,NJTA'
//MASTER DD DISP=SHR,DSN=LIBRA.MIGCOPY
//OSJOB DD DISP=OLD,DSN=SFITZ.LIBRA.MIGCOPY
//SYSPRINT DD SYSOUT=Y,DCB=RECFM=FBA
//SYSIN DD DISP=(OLD,PASS),DSN=&&OSJOB1
//*====================================================================*
|
The above code is courtesy of ibm. |
|