Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /* REXX */
- /***************************************/
- INPUT = 'A165926.JCL.CADENAS'
- X = OUTTRAP(MEMS.)
- /* TO GET THE MEMBER LIST FROM THE INPUT PDS */
- "LISTDS '"INPUT"' MEM"
- X = OUTTRAP(OFF)
- DO I=7 TO MEMS.0
- SAY 'MEMS.I COMPLETO: 'MEMS.I
- SAY 'MEMS.1 :'MEMS.1
- MEMS.I = STRIP(MEMS.I)
- SAY 'DELETING MEMBER:'MEMS.I
- Address TSO "DELETE '"INPUT"("MEMS.I")'"
- if rc\=0 then do;say 'ERROR en BORRADO';exit 8;end
- /*SAY "DELETING - '"INPUT"("MEMS.I")'"*/
- END
- EXIT
- /**************************************/
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement