*DECK IOHASH
          IDENT  IOHASH 
          ENTRY DLRTPRM                                                 000330
         ENTRY DLRTPRM                                                  000340
          ENTRY  DLRDPRM                                                000350
          ENTRY  DLRDOFL                                                000360
          ENTRY  DLRTOFL                                                000370
          ENTRY  DLOPNWK                                                000480
          ENTRY  DLOPOFL                                                000490
          ENTRY  CLSEPRM                                                000500
          ENTRY  CLSEOFL                                                000510
          SPACE  2
 DLRDPRM  DATA   0                                                      004500
          SX7    A1                                                     004510
          SA7    PARMADR                                                004520
 RDPRME   SA3    PARMADR                                                004530
          SA1    X3                                                     004540
          SA2    A1+1                                                   004550
          SA4    A1+2                                                   004560
          SA2    X2                                                     004570
          SA3    X4                                                     004580
          SX3    X3+1                                                   004590
          SX5    X2                                                     004600
          LX2    3                                                      004610
          LX5    1                                                      004620
          IX2    X5+X2                                                  004630
          GET    PRIMEWK,X1,X2,,X3                                      004640
          EQ     DLRDPRM                                                004650
 DLRTPRM  DATA   0                                                      004660
          SA2    A1+1                                                   004670
          SA2    X2                                                     004680
          SA4    A1+2                                                   004690
          SA3    X4                                                     004700
          SX3    X3+1                                                   004710
          SX5    X2                                                     004720
          LX2    3                                                      004730
          LX5    1                                                      004740
          IX2    X5+X2                                                  004750
          PUT    PRIMEWK,X1,X2,,X3                                      004760
          EQ     DLRTPRM                                                004770
 DLRDOFL  DATA   0                                                      004780
          SX7    A1                                                     004790
          SA7    PARMADR                                                004800
 RDOVFL   SA3    PARMADR                                                004810
          SA1    X3                                                     004820
          SA2    A1+1                                                   004830
          SA4    A1+2                                                   004840
          SA2    X2                                                     004850
          SA3    X4                                                     004860
          SX3    X3+1                                                   004870
          SX5    X2                                                     004880
          LX2    3                                                      004890
          LX5    1                                                      004900
          IX2    X5+X2                                                  004910
          GET    OVFLWK,X1,X2,,X3                                       004920
          EQ     DLRDOFL                                                004930
 DLRTOFL  DATA   0                                                      004940
          SA2    A1+1                                                   004950
          SA2    X2                                                     004960
          SA4    A1+2                                                   004970
          SA3    X4                                                     004980
          SX3    X3+1 
          SX5    X2                                                     004990
          LX2    3                                                      005000
          LX5    1                                                      005010
          IX2    X5+X2                                                  005020
          PUT    OVFLWK,X1,X2,,X3 
          EQ     DLRTOFL                                                005040
 DLOPNWK  DATA   0                                                      005870
          OPENM  PRIMEWK,I-O,N                                          005880
          EQ     DLOPNWK                                                005890
 DLOPOFL  DATA   0                                                      005900
          OPENM  OVFLWK,I-O,N                                           005910
          EQ     DLOPOFL                                                005920
 CLSEPRM  DATA   0                                                      005930
          CLOSEM PRIMEWK
          EQ     CLSEPRM                                                005950
 CLSEOFL  DATA   0                                                      005960
          CLOSEM OVFLWK 
          EQ     CLSEOFL                                                005980
          SPACE  1
 PRMEEOF  SX1    PRIMEWK                                                005550
          RJ     CKEOF                                                  005560
          ZR     X7,RDPRME                                              005570
          EQ     DLRDPRM                                                005580
 OVFLEOF  SX1    OVFLWK                                                 005590
          RJ     CKEOF                                                  005600
          ZR     X7,RDOVFL                                              005610
          EQ     DLRDOFL                                                005620
************************************************************************006110
*                          *  C K E O F  *                             *006120
*                                                                      *006130
*  DESCRIPTION:                                                        *006140
*         CHECK FOR END-OF-FILE. IF X7 = 0 END-OF-FILE HAS NOT BEEN    *006150
*         REACHED, IF X7 = 0 END OF FILE HAS OCCURED.                  *006160
************************************************************************006170
 CKEOF    DATA   0                                                      006180
          FETCH  X1,FP,X2    FETCH THE STATUS OF THE FILE POSITION FLD. 006190
          SB1    X2                                                     006200
          SB2    64          END-OF-INFORMATION STATUS.                 006210
          SB3    8                                                      000120
          EQ     B1,B2,SETEOF   IF FP EQUALS END-OF-INFORMATION, SET    006220
          EQ     B1,B3,SETEOF 
          EQ    B1,B3,SETEOF                                            000140
          SX7    0           X7 TO 1, ELSE 0.                           006230
          EQ     CKEOF       RETURN TO CALLER.                          006240
 SETEOF   SX7    1                                                      006250
          EQ     CKEOF       RETURN TO CALLER.                          006260
          SPACE  2
 PRIMEWK  FILE   LFN=ZZZZZCD,LT=UL,RT=U,FO=WA,ERL=1,FWB=PRMEBUF,BFS=195,
,MRL=100000,DX=PRMEEOF,CF=U 
 OVFLWK   FILE   LFN=ZZZZZCC,LT=UL,RT=U,FO=WA,ERL=1,FWB=OVFLBUF,BFS=195,
,MRL=100000,DX=OVFLEOF,CF=U 
          SPACE  1
 PRMEBUF  BSSZ   195                                                    006800
 OVFLBUF  BSSZ   195                                                    006810
PARMADR   BSS    1
          END 
