CLIST to extract member names

1 post / 0 new
Anonymous
CLIST to extract member names

The following CLIST code will give you the list of members in a PDS.

SET &SYSOUTTRAP = 1000
LISTDS '&SYSUID..PDS' MEMBERS
SET NO_OF_OUTPUT= &SYSOUTLINE
SET &SYSOUTTRAP = 0
SET CTR =1
SET MEM_COUNT=0
DO UNTIL (&CTR > &NO_OF_OUTPUT)
  IF &CTR>=7 THEN +
  DO
  SET MEMBER = &STR(&&SYSOUTLINE&CTR)
  WRITE MEMEBER NAME IS &STR(&MEMBER)
  SET MEM_COUNT=&MEM_COUNT+1
  END
  SET CTR = &CTR +1
END
WRITE MEMBER COUNT IS &MEM_COUNT

"; ; ; ;

Sponsored Listing