*COMDECK SCHDECLS 
*CALL SCHDRDCLS 
*CALL    SCAHDDCLS
*CALL    SCACLDCLS
*CALL    SCAPRDCLS
*CALL    SCGPRDCLS
*CALL    SCRHDDCLS
*CALL SCRCLDCLS 
*CALL SCIHDDCLS 
*CALL    SCIRSDCLS
*CALL    SCICHDCLS
*CALL    SCIEDDCLS
*CALL    SCICLDCLS
*CALL    SCIPCDCLS
*CALL    SCICEDCLS
