+267,267    SIDR 26340 S.P. 11-15-76 (C.W. PUT IN)                      COBOL12
RLBLDIAG LI,3     -149                                                  COBOL12
+312,312          S28866 C.W. F01 1-5-77                                COBOL12
GETDN2   EQU      $                                                     COBOL12
         LW,B2    SXEGTF            LEVEL NUMBER                        COBOL12
         CI,B2    77                SE IF = 77                          COBOL12
         BNE      GETDN25           NO                                  COBOL12
         LI,B9    113               DIAG 113                            COBOL12
         BAL,B11  DIAG                                                  COBOL12
GETDN25  EQU      $                                                     COBOL12
         LW,B2    DATANF            QUALIFIER                           COBOL12
+END
