PRINT NOGEN
DDLIST   START 0
DDLIST   AMODE 31
DDLIST   RMODE ANY
DDLIST   TITLE 'Scan for DD cards'
DDLIST   CSECT
         BAKR  14,0                 Linkage Stack K
         LAE   12,0(15,0)           Set R12 as base register
         USING DDLIST,12            Use R12 as base register
         STM   14,12,12(13)         Save registers in callers area
         LR    15,13                Load base
         ST    13,8(15)
         ST    15,4(13)
         DEVTYPE =CL8'SYSPRINT',CVBAREA Check for SYSPRINT DD Card
         BXH   15,15,Not_Found      If we don't
         WTO   'SYSPRINT Found'     Issue message
         B     Scan_TIOT            Skip
Not_Found      DS  0H
         WTO   'SYSPRINT not found' Issue message
Scan_TIOT      DS  0H
         XR    5,5                  Clear work register
         EXTRACT TIOTADDR,FIELDS=TIOT  Get the TIOT
         L     3,TIOTADDR           Point to the TIOT
         USING TIOT,3
Next_TIOT_Entry DS  0H
         ICM   5,1,TIOELNGH         Get Length of TIOT in R5
         BZ    TIOT_ENDED           If 0 then we have finished
         MVC   List_WTO+8(8),TIOEDDNM Move to WTO card?
List_WTO WTO   'xxxxxxxx DD Name found'
UP_TO_NEXT_TIOT DS  0H
         LA    3,0(5,3)             Point to next TIOT entry
         B     Next_TIOT_Entry    <=== Loop back to process this entry
TIOT_Ended     DS  0H
         XR    15,15                Set condition code
         PR    ,                    Return to caller
*---------------------------------------------------------------------*
*-*                Storage Area Follows                             *-*
*---------------------------------------------------------------------*
CVBAREA        DS    D              For DEVTYPE
TIOTADDR       DC    F'0'           TIOT Extract address
***********************************************************************
         LTORG
TIOT     DSECT
         IEFTIOT1 ,                 TIOT mapping DSECT
         END   DDLIST
         PUNCH ' MODE AMODE(31)'    Binder AMODE statement.
         PUNCH ' MODE RMODE(ANY)'   Binder RMODE statement.
         PUNCH ' ENTRY DDLIST'      Binder Module entry point.
         PUNCH ' NAME DDLIST(R)'    Binder Module Name.
         END ,                     END OF BINDER INPUT.