* /* MACCOMP Y-2 SC1CL/PZD81                                         */ 00110002
* /* MACSTAT Y-2 73269/015032,VS02296                                */ 00130002
         MACRO                                                          00150002
&NAME    ASCBCHAP  &POSIT,&POSIT2                                       00200002
* /* MACDATE Y-2 73269                                               */ 00260002
         AIF   ('&POSIT' EQ '').ERR1                                    00270002
         AIF   ('&POSIT2' NE '').ERR2                                   00280002
         AIF   ( ('&POSIT' NE 'MOVE') AND ('&POSIT' NE 'ADD')          *00300002
               AND ('&POSIT' NE 'DELETE') ).ERR                         00400002
         AIF   ('&POSIT' NE 'MOVE').X1                                  00450002
&NAME    SR    0,0                     ENTRY CODE FOR MOVE OPTION       00500002
         AGO   .X3                                                      00550002
.X1      ANOP                                                           00600002
         AIF   ('&POSIT' NE 'ADD').X2                                   00650002
&NAME    LA    0,1(0,0)                ENTRY CODE FOR ADD OPTIO@YM02296 00700002
         AGO   .X3                                                      00750002
.X2      ANOP                                                           00800002
&NAME    LA    0,2(0,0)                CODE FOR DELETE OPTION  @YM02296 00850002
.X3      ANOP                                                           00900002
         L     15,CVTPTR(0,0)          ADDRESS OF CVT          @YM02296 00950002
         L     15,CVTVEAC0-CVTMAP(,15) ADDRESS OF ASCBCHAP ROUTINE      01000002
         BALR  14,15                   INVOKE ASCBCHAP                  01050002
         MEXIT                                                          01100002
.ERR     IHBERMAC 1001,,&POSIT         ISSUE MNOTE, INVALID OPERAND     01150002
         MEXIT                                                          01152002
.ERR1    IHBERMAC 1006,POSITIONAL      ISSUE MNOTE, MISSING OPERAND     01160002
         MEXIT                                                          01162002
.ERR2    IHBERMAC 1001,,&POSIT2        ISSUE MNOTE, MORE THAN ONE OPRND 01170002
         MEND                                                           01200002