** CBL.CTL(SSIN1EQU)   *** L=002 --- 2016/03/03 15:01:00 (L05)
*
*  Equates for fields required for Input file.
*  Required for SSIN1 member containing INKEYS sub-routine.
*
  equ in1ra          ssin1equ          * Input Record Area.
    equ in1ky    0   !equ in1ky_L keyL * Input key Off/Len.
  equ in1ra_L             256          * Input Record Area max length.

  equ in1rn     in1ra+in1ra_L          * Input Record Number.  BIN(4)
  equ in1rn_L               4          * Input Record Number field len.

  equ   ssin1equ_end    in1rn+in1rn_L  * Next position in work area.