PROC 1 DD
CONTROL LIST
SET &SYSOUTTRAP = 1000
LISTA ST
SET B = &SYSOUTLINE
SET &SYSOUTTRAP = 0
IF &B > 1 THEN +
 DO A = 2 TO &B
  SET MEMBER = &STR(&&SYSOUTLINE&A)
  SET LEN = &LENGTH(&STR(&MEMBER))
  IF &STR(&MEMBER) NE &STR(--DDNAME---DISP--) THEN +
   DO
    IF &LEN >= 8 THEN +
     DO
      IF &SUBSTR(1:8,&MEMBER) = &STR(TERMFILE) OR +
         &SUBSTR(1:8,&MEMBER) = &STR(NULLFILE) THEN +
       DO
        IF &LEN > 11 THEN +
         DO
          SET DDL = &LEN
          IF &DDL > 19 THEN +
           SET DDL = 19
          SET DDN = &SUBSTR( 11:&LEN,&MEMBER)
          SYSCALL TRUNCDD  DDN
          IF &DDN = &DD THEN +
           SET SW = 1
          ELSE +
           SET SW = 0
          IF &SW = 1 THEN +
           DO
            WRITE &MEMBER
            SET SW2 = 1
           END
         END
        ELSE +
         IF &SW = 1 THEN +
          WRITE &MEMBER
        GOTO NEXT
       END
     END
    IF &LEN GT 3 THEN +
     IF &SUBSTR(1:2,&MEMBER) = &STR(  ) THEN +
      IF &SUBSTR(3:3,&MEMBER) NE &STR( ) THEN +
       DO
        SET DDL = &LEN
        IF &DDL > 10 THEN +
         SET DDL = 10
        SET DDN = &SUBSTR(3:&DDL,&MEMBER)
        SYSCALL TRUNCDD  DDN
        IF &DDN = &DD THEN +
         SET SW = 1
        ELSE +
         SET SW = 0
        IF &SW = 1 THEN +
         DO
          WRITE &DDN
          WRITE   &SAVEDSN
          SET SW2 = 1
         END
       END
      ELSE +
       IF &SW = 1 THEN +
        WRITE   &SAVEDSN
     ELSE +
      SET SAVEDSN = &STR(&MEMBER)
    ELSE +
     SET SAVEDSN = &STR(&MEMBER)
   END
 NEXT: END
 IF &SW2 NE 1 THEN +
  WRITE &DD NOT ALLOCATED
TRUNCDD: PROC 1 XDD
 SYSREF &XDD
 SET LEN = &LENGTH(&XDD)
 DO A = &LEN TO 1 BY -1 WHILE &SUBSTR(&A:&A,&XDD) EQ &STR( )
 END
 SET XDD = &SUBSTR(1:&A,&XDD)
 END