*TITLECKDD   -- CHECK PRESENCE OF DATA DEFINITION CARD                  00000010
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
*A    SYSTEM PROGRAM         SYS1.SUBLIB                                00000030
*A    MAINTAINED BY          DATA PROCESSING                            00000040
*A    AUTHOR                 L. R. FARRIS                               00000050
*A    SYSTEM                 IBM (SEE CRAY)                             00000060
*A    LANGUAGE               S/360 ASSEMBLER                            00000060
*A    WRITTEN                1-2-69 ?                                   00000070
*A                                                                      00000080
*A                                                                      00000090
*A    CALL CKDD (A)                                                     00000100
*A                                                                      00000110
*A       IN/OUT  A,  LENGTH = 8 BYTES                               A8  00000120
*A                                                                      00000130
*A       INPUT   A = THE DD-NAME                                        00000140
*A                                                                      00000150
*A       OUTPUT  A = 'PRESENT ' IF THERE IS A  DD CARD WITH THE DD-NAME 00000160
*A               A = 'MISSING ' IF THERE IS NO DD CARD WITH THE DD-NAME 00000170
*A                                                                      00000180
*A    THE DD-CARDS WITHIN THE JOB STEP ARE CHECKED.                     00000190
*A    THE DD-CARDS IN OTHER JOB STEPS ARE NOT CHECKED.                  00000200
*A                                                                      00000210
*A                                                                      00000220
*A    ANY NUMBER OF NAMES MAY BE CHECKED WITH A SINGLE CALL:            00000230
*A    CALL CKDD (A, B, C, ... )                                         00000240
*AEND                                                                   00000280