MACRO 00050082 &NAME IEDTPEDT &EDIT=EDITD,&RECFM=V,&ERROPT=IGNORE,&VERCHK=NOCHK, X00100082 &REPLACE=X'19',&BUFFER=NO,&MINLN= 00150082 LCLA &A 00200082 LCLB &SW(6),&B 00250082 LCLC &C 00300082 &SW(1) SETB ('&EDIT' EQ 'EDITR') 00350082 AIF ('&EDIT' EQ 'EDITD' OR '&EDIT' EQ 'EDITR').EDITOK 00400082 &SW(1) SETB 0 00450082 MNOTE 4,'EDIT=&EDIT INCORRECTLY SPECIFIED,DEFAULT ASSUMED' 00500082 .EDITOK ANOP 00550082 &SW(2) SETB ('&RECFM' EQ 'V') 00600082 AIF ('&RECFM' EQ 'V' OR '&RECFM' EQ 'U').RECFMOK 00650082 &SW(2) SETB 0 00700082 MNOTE 4,'RECFM=&RECFM INCORRECTLY SPECIFIED,DEFAULT ASSUMED' 00750082 .RECFMOK ANOP 00800082 &SW(3) SETB ('&ERROPT' EQ 'IGNORE') 00850082 &SW(4) SETB ('&VERCHK' EQ 'VOKCHK') 00900082 AIF ('&VERCHK' EQ 'NOCHK' OR ('&VERCHK' EQ 'VOKCHK' AND NOT X00950082 &SW(3))).VOK 01000082 &SW(4) SETB 0 01050082 MNOTE 4,'VERCHK=&VERCHK INCORRECTLY SPECIFIED,DEFAULT ASSUMED' 01100082 .VOK ANOP 01150082 &SW(5) SETB ('&BUFFER' EQ 'YES') 01200082 AIF ('&BUFFER' EQ 'NO' OR '&BUFFER' EQ 'YES').BUFOK 01250082 &SW(5) SETB 0 01300082 MNOTE 4,'BUFFER=&BUFFER INCORRECTLY SPECIFIED,DEFAULT ASSUMED' 01350082 .BUFOK AIF (T'&REPLACE EQ 'N').TYPOK 01400082 &SW(6) SETB 1 01450082 &C SETC T'&REPLACE 01500082 MNOTE 4,'REPLACE=&REPLACE TYPE ATTRIBUTE=&C IMPROPER, X01550082 DEFAULT ASSUMED' 01600082 AGO .REPOK 01650082 .TYPOK ANOP 01700082 &A SETA &REPLACE 01750082 &B SETB (&A EQ 0 OR &A EQ 17 OR &A EQ 18 OR &A EQ 24 OR &A EQ X01800082 29 OR &A EQ 30 OR &A EQ 60 OR &A EQ 113 OR &A EQ 114) 01850082 AIF (&B).TEST 01900082 &B SETB (&A EQ 115 OR &A EQ 116 OR &A EQ 117 OR &A EQ 118 OR &A X01950082 EQ 119 OR &A EQ 120) 02000082 .TEST AIF (NOT&B).REPOK 02050082 MNOTE 4,'WARNING - REPLACE CHARACTER SPECIFIED IS ONE OF THE X02100082 SPECIAL PURPOSE 50-MDI CODES' 02150082 .REPOK AIF (T'&MINLN EQ 'N' OR T'&MINLN EQ 'U').TYPMNOK 02200082 &C SETC T'&MINLN 02250082 &A SETA 0 02300082 MNOTE 4,'MINLN TYPE ATTRIBUTE=&C IMPROPER' 02350082 AGO .BY1 02400082 .TYPMNOK ANOP 02450082 &A SETA &MINLN 02500082 .BY1 ANOP 02550082 CNOP 0,4 02600082 &NAME BAL 0,IECA&SYSNDX 02650082 DC B'&SW(1)&SW(2)&SW(4)&SW(5)&SW(3)000' MACRO OPTION IND 02700082 AIF (&SW(6)).DCX19 02750082 DC &REPLACE * REPLACE CHARACTER 02800082 * IF THE ABOVE STATEMENT IS IN ERROR THE REPLACE OPERAND WAS 02850082 * INCORRECTLY CODED 02900082 AGO .X19 02950082 .DCX19 DC X'19' * REPLACE CHARACTER 03000082 .X19 DC H'&A' * MINIMUM RECORD LENGTH 03050082 AIF (&SW(3)).V0 03100082 DC V(&ERROPT) USER ERROR EXIT ROUTINE 03150082 AGO .BY 03200082 .V0 DC A(0) * NULL USER ERROR EXIT ROUTINE 03250082 .BY ANOP 03300082 IECC&SYSNDX DC V(IEDTEDIT) EDIT LOGIC MODULE 03350082 IECA&SYSNDX L 15,IECC&SYSNDX 03400082 BALR 14,15 * LINK TO EDIT LOGIC 03450082 MEND 03500082