Author: anatol
Posted: Thu Jan 05, 2017 9:46 pm (GMT 5.5)
You can use LISTDS command with MEMBERS parameter
where dsn your PDS name, F - is array with LISTDS results
Posted: Thu Jan 05, 2017 9:46 pm (GMT 5.5)
You can use LISTDS command with MEMBERS parameter
| Code: |
/* REXX - */ dsn = your pds APP = OUTTRAP( "F.",'*') "LISTDS '"||dsn||"' MEMBERS" APP = OUTTRAP( "OFF") DO I = 1 TO F.0 IF substr(word(F.I,1),1,4) = 'AAAA' THEN say F.I END |
where dsn your PDS name, F - is array with LISTDS results