MACRO                                                          10000000
&NAME    JINPUT                                                         20000000
.*       GENERATES A CALL TO THE INPUT I/O MODULE TO GET THE NEXT       20050000
.*       RECORD FROM THE INPUT FILE.                                    20100000
&NAME    L     R12,JINMLC               LOAD BASE                       30000000
         BAL   R9,JINPUT(,R12)          GO TO JINPUT                    40000000
         MEND                                                           50000000