% VCLOSE: MACRO;                                                       00050002
         ANS('DO;');                                                    00100002
    IF MACLIST = '' THEN GO TO ERROR;                                   00150002
    IF MACLIST(1) = '' THEN GO TO ERROR;                                00200002
    IF MACLIST(1,1) = '' THEN GO TO ERROR;                              00250002
         ANS('RFY GPR01P RSTD;') COL(MACCOL);                           00300002
    IF MACLIST(1) = MACLIST(1,1) THEN                                   00350002
      ANS('GPR01P = ADDR('||MACLIST(1)||');') COL(MACCOL);              00400002
    ELSE                                                                00450002
      IF MACLIST(1,1) = '1' THEN;                                       00500002
      ELSE                                                              00550002
        ANS('GPR01P = '||MACLIST(1,1)||';') COL(MACCOL);                00600002
      ANS('CALL '||MACNAME||';') COL(MACCOL);                           00650002
         ANS(COMMENT('ENTER CLOSE ROUTINE'))COL(41);                    00660002
      ANS('RFY GPR01P UNRSTD;') COL(MACCOL);                            00700002
         ANS('END;') COL(MACCOL);                                       00750002
    RETURN;                                                             00800002
  ERROR:                                                                00850002
         ANS('END;') COL(MACCOL);                                       00900002
    ANS  MSG('INVALID PARAMETER PASSED FOR '||MACNAME);                 00950002
             RETURN CODE(12);                                           01000002
   % END;                                                               01050002