++PTF(ASP0846) REWORK(2000014). /* ----------------------------------- ASP0846 000106 ASEB200 V201 PM OMCSS2HC Software to Hardware Compression COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2000 APARLIST: ASZ3129 000111 61VNAB PD ASEB201 V201 SUGG OK OMCSS2HC 000113 __S0846 Provide a Software to Hardware Recompression utility - OMCSS2HC */ ++VER(Z038) FMID(ASEB200) PRE(ASP0758) SUP(ASZ2918,ASZ2941,ASZ2942,ASZ2956,ASZ2967,ASZ3129). ++JCLIN. //STEP1 EXEC PGM=IEWL, // PARM='LIST,MAP,NCAL,REUS,AMODE=31' //SYSPRINT DD SYSOUT=* //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) //SYSLMOD DD DSN=ASE.ASELIB,DISP=SHR //AASELOAD DD DSN=ASE.AASELOAD,DISP=SHR //SYSLIN DD * INCLUDE AASELOAD(OMCSS2HC) NAME OMCSS2HC(R) ++MOD(OMCSS2HC) DISTLIB(AASELOAD) LEPARM(RENT,REUS). ++MOD(ASEDAMFM). ++SAMP(RUNS2HC) DISTLIB(AASESAMP) SYSLIB(ASESAMP).