JOB  Reset Subtract                                         0340A
               ctl  6611
     *
     * Equates for common code.
     *
     start     equ  347
     detail    equ  start   Here to read detail or chain next program.
     headct    equ  336     Count of headers read.  Usually zero.
     *                      Change to one to print only one header.
     worked    equ  453     Here for success.
     failed    equ  470     Here for failure.
     repeat    equ  495     Here to reload print area and repeat test.
               org  518     Test starts here
     *
               sw   206,241        LOAD PRINT AREA
               sw   261              ,,
               bce  one,10,        BR TO RESET SUB 1 POS FLD IF BL IN 010
     scope1    zs   210,270        RESET SUB 10 POSITION FIELD
               bss  scope1,B       B ON TO SCOPE
               c    270,250        TEST FOR ERROR
               b    test             ,,
     one       lca  201,261        LOAD A FIELD
               zs   261            RESET SUB 1 POSITION FIELD
               bss  one,B          B ON TO SCOPE
               c    261,241        TEST FOR ERROR
     test      bu   failed         BRANCH TO ERROR PRINT ROUTINE IF UNEQ
               b    worked         BRANCH TO CORRECT PRINT ROUTINE
               dcw  @"@            GMWM
               end  start