00100 RESTAB.=PROD/FORWARD+FOO2[10X,AIL]/NOLIST/NOLO/NON RTRAN 00200 PROD.=HEL[S,AIL]/NOLIST/NOLO/NON PTRAN[S,AIL] 00300 SAIL=TENXSW+DEFJS+JSYSES+HEAD[S,AIL](LR)+DB+SAIL[S,AIL]+CC+PARSE[S,AIL]+FOO2[S,AIL]+; 00400 PROD/FORWARD+DATA+RESTAB/FORWARD+ENDDAT ; 00500 +SYM[S,AIL]+GEN[S,AIL]+ARRAY[S,AIL]+EXPRS[S,AIL]; 00600 +STATS[S,AIL]+LEAP[S,AIL]+TOTAL[S,AIL]+PROCSS[S,AIL]+COMSER[S,AIL]