job  MOVE NUMERIC                                           0210B
               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   221,241
               lca  225,265
     scope     mn   205,265
               chain4
               bss  scope,b
               c    265,245
               bu   failed         BRANCH TO FAILED PRINT ROUTINE
               b    worked         BRANCH TO CORRECT PRINT ROUTINE
               dcw  @"@            GMWM
               end  start