cpuhawg
Active User
Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL
|
|
|
|
This should work for you. The DD01O output DD statement from the 2nd FILEAID step will contain the member names starting in position 1 of an 80 byte record.
| Code: |
//FILEAID1 EXEC PGM=FILEAID,PARM=TSO
//SYSPRINT DD SYSOUT=*
//SYSLIST DD DSN=&&MEMBERX,UNIT=SYSDA,DISP=(NEW,PASS),
// SPACE=(CYL,(50,20),RLSE)
//DD01 DD DISP=SHR,DSN=HLQ.PDS.LIBRARY
//DD01O DD DUMMY
//SYSIN DD *
$$DD01 LISTALL OUT=0
/*
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE HLQ.MEMBER.LIST
SET MAXCC=0
/*
//FILEAID2 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DISP=(OLD,DELETE),DSN=&&MEMBERX
//DD01O DD DSN=HLQ.MEMBER.LIST,UNIT=SYSDA,DISP=(NEW,CATLG),
// RECFM=FB,LRECL=80,BLKSIZE=0,
// SPACE=(TRK,(5,2),RLSE)
//SYSIN DD *
$$DD01 COPY PADCHAR=C' ',
IF=(30,EQ,C'***MEMBER'),
MOVE=(1,8,41)
/*
|
|
|
