If the lengths are fixed, you could use this:
Code:
             Dcl        Var(&Spool_ID)   Type(*Char) Len(82)
             Dcl        Var(&Job_Name)   Type(*Char) Len(10) Stg(*Defined) +
                          DefVar(&Spool_ID 1)
             Dcl        Var(&User_Name)  Type(*Char) Len(10) Stg(*Defined) +
                          DefVar(&Spool_ID 11)
             Dcl        Var(&Job_Number) Type(*Char) Len(6)  Stg(*Defined) +
                          DefVar(&Spool_ID 21)
             Dcl        Var(&Splf_Name)  Type(*Char) Len(10) Stg(*Defined) +
                          DefVar(&Spool_ID 27)
             Dcl        Var(&Splf_Nbr)   Type(*Int) Stg(*Defined) +
                          DefVar(&Spool_ID 37)
             Dcl        Var(&Sys_Name)   Type(*Char) Len(8) Stg(*Defined) +
                          DefVar(&Spool_ID 41)
             Dcl        Var(&Crt_Date)   Type(*Char) Len(7) Stg(*Defined) +
                          DefVar(&Spool_ID 49)
             Dcl        Var(&Crt_Time)   Type(*Char) Len(6) Stg(*Defined) +
                          DefVar(&Spool_ID 56)
             Dcl        Var(&OutQ_Name)  Type(*Char) Len(10) Stg(*Defined) +
                          DefVar(&Spool_ID 62)
             Dcl        Var(&OutQ_Lib)   Type(*Char) Len(10) Stg(*Defined) +
                          DefVar(&Spool_ID 72)

             Dcl        Var(&Spl_ID_Len) Type(*Int)

             DCLF       FILE(SPLFLAYOUT) OPNID(INREC)