PARM NOCHECK IMP80 TRIMP_PERQPONEAS+TRIMP_PONEB01S,P1Y,L1,.OUT IMP80 TRIMP_PERQPTWOAS+TIMP01S,P2Y,L2,.OUT IMP80 TRIMP_PERQOPT01S,POPTY,L3,.OUT IMP80 TRIMP_PERQGEN01S,PGENY,L4,.OUT LIST L1+L2+L3+L4,.LP DESTROY L1,L2,L3,L4 LINK P1Y P2Y POPTY PGENY .END P0Y MODIFY P0Y SATISFY REFS .ALL SATISFY DATA .ALL RENAME ICL9CEZPERQIMP,S#PERQIMP .END SUPPRESS .ALL RETAIN S#PERQIMP SUPPRESS DATA .ALL CLOSE NEWGEN P0Y,TI01Y