Hi All, I have a PDS 'userid.myname.other' with 3000 members I want to read all the members of that pds and write it in to a new PDS. I have few conditions for writing the members. Conditions: 1. all the members have a particular name say sasexe on a fixed column but the row may varies. I want to start writing the members only when after sasexe all the lines before that has to be omitted. 2. Likewise writing the output file has to be stopped when the when another keyword is encountered which is also common in all the members. I'm attaching my sample code here. which is not working as expected. Can someone help me out on this? code: DATA TST1; LENGTH FILENAME $40.; INFILE FILE01; INPUT @1 PGM $8.; Inp_NAME = "input.file.name(" ||TRIM(PGM)|| ")"; out_NAME = "output.file.name(" ||TRIM(PGM)|| ")"; RUN; DATA REC_OT(KEEP=REC); LENGTH MYINFILE $400.; SET TST1; INFILE INDUMMY FILEVAR=Inp_NAME FILENAME=MYINFILE END=DONE; DO WHILE(NOT DONE); INPUT @1 REC $CHAR80. @3 JOB $CHAR8. @12JOB1 $CHAR4.; INDIC=0; INDIR=2; IF (INDEX (JOB,"sasexe" ) > 0) THEN DO; FILE OUTDUMMY FILEVAR=Out_NAME OLD; PUT @1 REC; IF (INDEX (JOB1,"EXEC") >0) THEN DO; INDIC = INDIC+1; END; IF (INDIC = INDIR) THEN DO; PUT "//*******"; DONE=1; END; END; END; FILE MESSAGES NOPRINT; PUT 'FINISHED READING ' MYINFILE=; RUN;
... View more