%IDABFR: MACRO;                                                        03000000
      IF MACLIST(1) = 'UPDATE'             /* SEE IF UPDATE          */ 36000000
        THEN                                                            39000000
          DO;                                                           42000000
          ANS('DO;  /* SET UPDATED BFR */');                            45000000
          ANS('BUFCORBA = BUFCDDDD;') SKIP;                             48000000
          ANS('BUFCMW = ON;') SKIP;                                     51000000
          ANS('END;') SKIP;                                             54000000
          RETURN CODE(0);                  /* EXIST FROM MACRO       */ 57000000
          END;                                                          60000000
          IF MACLIST(1) = 'SETORBA'                                     63000000
            THEN                                                        66000000
              DO;                                                       69000000
              ANS('DO; /* SET OUTPUT RBA */');                          72000000
              ANS('BUFCORBA = RPARM1;') SKIP;                           78000000
              ANS('BUFCMW = ON;  /* SET MUST WRITE */') SKIP;           78050004
              ANS('END;') SKIP;                                         81000000
              RETURN CODE(0);              /* EXIST FROM MACRO       */ 84000000
              END;                                                      87000000
            ELSE RETURN CODE(4);           /* UNKNOWN PARAMETER      */ 90000000
 %END IDABFR;                                                           93000000