I want to copy all records from this file into a file of same properties (Variable length +LRECL=1004) which are having 'S' character at position 1.
tried following code but it's not working
//STEP1 EXEC PGM=FILEAID,REGION=0M,TIME=5
//DD01 DD DSN=INPUT.VL1004.FILE,DISP=SHR
//DD01O DD DSN=OUTPUT.VL1004.FILE,
// DISP=(,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(5,1),RLSE),
// DCB=(LRECL=1004,RECFM=VB,BLKSIZE=0)
//*
//SYSIN DD *
$DD01 COPY IF(1,EQ,C'S')
/*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=INPUT.VL1004.FILE,DISP=SHR
//DD01O DD DSN=OUTPUT.VL1004.FILE,
// DISP=(,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(5,1),RLSE),
// DCB=(LRECL=1004,RECFM=VB,BLKSIZE=0)
//*
//SYSIN DD *
$DD01 COPY IF(1,EQ,C'S')
/*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
the desired o/p is not coming...Is there any fault in Control card ...mean should it be
$DD01 COPY IF(5,EQ,C'S')
Help at earliest would be appreciable.
Thank you.
