*DECK DUMPFLG                                                            DUMPFLG
          IDENT  DUMPFLG                                                 DUMPFLG
          TITLE  DUMPFLG -  FLAG CONTROLLING DEBUG DUMPS
  
          MACHINE  ANY,I
          COMMENT  FLAG CONTROLLING DEBUG DUMPS 
          SPACE  4
**        DUMPFLG -  FLAG CONTROLLING DEBUG DUMPS 
* 
*         THIS DECK MUST BE ASSEMBLED ONLY WHEN DGEN IS COMPILED WITH 
*         THE SYMPL E-OPTION  (I.E. WHEN DEBUG CODE IS COMPILED). 
* 
*         DUMPFLG = 1  MEANS THAT FOR THE CURRENT COBOL 5 COMPILATION,
*                      DEBUG OPTIONS SHOULD BE CHECKED. 
* 
*         DUMPFLG = 0  MEANS THAT FOR THE CURRENT COBOL 5 COMPILATION,
*                      DEBUG OPTIONS SHOULD NOT BE CHECKED. 
  
                                                                         DUMPFLG
                                                                         DUMPFLG
          ENTRY  DUMPFLG                                                 DUMPFLG
 DUMPFLG  VFD    60/1                                                    DUMPFLG
          END                                                            DUMPFLG
