*COMDECK CHECKPT
          IDENT  CHECKPT
          ENTRY  CHECKPT
          SYSCOM B1 
          TITLE  CHECKPT - TAKE CHECKPOINT DUMP.
          COMMENT TAKE CHECKPOINT DUMP. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 CHECKPT  SPACE  4,10 
***       CHECKPT - TAKE CHECKPOINT DUMP. 
* 
*         CALL CHECKPT (LIST,OPTION)
* 
*         ENTRY  (LIST) = LIST OF FILE PROCESSING SPECIFICATIONS. 
*                (OPTION) = 0, PROCESS ALL FILES. 
*                         = OTHER, PROCESS ONLY THE SPECIFIED FILES.
* 
*         CHECKPT(LIST,OPTION);   (*SYMPL* CALL)
* 
*         ENTRY   LIST, AN ARRAY THAT CONTAINS A LIST OF FILE 
*                 PROCESSING SPECIFICATIONS.
*                 OPTION, AN ITEM THAT CONTAINS THE OPTION. 
* 
*         USES   X - 2. 
*                A - 2. 
*                B - 1. 
* 
*         MACROS CHECKPT. 
  
  
 CHECKPT  SUBR               ENTRY/EXIT 
          SB1    1
          SA2    A1+B1       ADDRESS OF OPTION
          SA2    X2          OPTION 
          ZR     X2,CHE1     IF ALL FILES TO BE PROCESSED 
          CHECKPT X1,OPTION 
          EQ     CHECKPTX 
  
 CHE1     CHECKPT X1
          EQ     CHECKPTX 
  
          END 
