* CLEAR MAKPO - OâHõìEHéE ðOìEê é PEçéCTPOB LEAR0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 28.01.89 BPEMñ 02.01 * æOKõC LEAR0002 * CLEAR /(,<äìéHA>)/[,...] LEAR0003 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 LEAR0004 MACRO LEAR0005 &NAME CLEAR LEAR0006 LCLA &I LEAR0007 LCLC &T LEAR0008 &NAME IHBLABEL LEAR0009 .NEXT ANOP LEAR0010 &I SETA &I+1 LEAR0011 AIF (&I GT N'&SYSLIST).END LEAR0012 &T SETC T'&SYSLIST(&I) LEAR0013 AIF (N'&SYSLIST(&I) EQ 1).NOLEN / ELSE LENGTH PRESENT LEAR0014 AIF ('&SYSLIST(&I,2)' EQ '1').MVI LEAR0015 XC &SYSLIST(&I,1)(&SYSLIST(&I,2)),&SYSLIST(&I,1) CLEAR FLD LEAR0016 AGO .NEXT LEAR0017 .MVI MVI &SYSLIST(&I,1),0 CLEAR BYTE LEAR0018 AGO .NEXT LEAR0019 .NOLEN AIF ('&T' EQ '#' OR '&T' EQ 'N').REG / FIELD, NO LENGTH LEAR0020 XC &SYSLIST(&I),&SYSLIST(&I) CLEAR FIELD LEAR0021 AGO .NEXT LEAR0022 .REG XR &SYSLIST(&I),&SYSLIST(&I) CLEAR REGISTER LEAR0023 AGO .NEXT LEAR0024 .END MEND LEAR0025