JFLEBLK  DSECT                          FILE BLOCK DSECT                05000000
*A751000                                                       @AZ13738 05050000
         WRITE JDECB,SF,MF=L            DECB FOR READ AND WRITE         10000000
JTCLOSE  CLOSE (,),TYPE=T,MF=L          TCLOSE PARM LIST                15000000
JFLE     DS    A                        ADDR OF FILE DEFINITION         20000000
JBUFFER  DS    A                        ADDR OF ALTERNATE BUFFER        25000000
JBUF     DS    A                        ADDR OF BUFFER                  30000000
JRL      DS    H                        RECORD LENGTH                   35000000
JBUFNDX  DS    H                        BUFFER DISPLACEMENT (INDEX)     40000000
JIOFLAG  DSW   JPUTLPND,                PUTL PENDING                   X45000000
               JGETLPND,                GETL PENDING                   X50000000
               JGETLPNT,                GETL TO FOLLOW POINT           X55000000
               JGETLSBF,                POINT (GETL) WITHIN SAME BUFFERX60000000
               JNOTED,                  NOTE VALUE OF LAST RECORD NOTEDX65000000
               JDBLBUF,                 OUTPUT IS DOUBLE BUFFERED      X70000000
               JCHKFILE,                FILE NEEDS TO BE CHECKED       X75000000
               JPUTLWRT                 PUTL FORCED WRITE               75050000
JMLTFLAG DSW   JMLTBUF                  MBUFFERS IN USE        @AZ13738 75100000
JLSTNOTE DS    CL6                      NOTE VALUE OF LAST RECORD NOTED 80000000