H      10                                                            TEST4
01020F* TESTING GOTO SUBROUTINE. SPR 11-1420
01030FTEST41  IPE F      20            DISK   TEST41
     F                                              KASCII
01040FTEST42  O   F      50     OF     PRINTR LPT
01050ITEST41  AA  01
01060I                                        1   30N1
01070I                                        4  20 A1
01080C   01      100       COMP N1                   11
01090C   11                EXSR S101
01100C  N11                EXSR S102
01110CSR         S102      BEGSR
01120CSR                   MOVE 'SUB2'    SUB2   10
01130CSR                   ENDSR
01140C**  SUBROUTINE 1
01150CSR         S101      BEGSR
01160CSR                   MOVE 'SUB1'    SUB1   10
01170CSR                   ENDSR
01200OTEST42  H 11     1P
01201O       OR        OF
01202O                                   24 'NUM FIELD<100-->ALP FIE'
01204O                                   47 'LD=SUB1, OTHERWISE SUB2'
01206O        D  1     01
01210O                         N1    Z   10
01220O                 11      SUB1   B  20
01230O                N11      SUB2   B  20