*  %     /*                                                             00050002
         MACRO                                                          00100002
&NAME    PGFIX &FORM,&LA=,&A=,&EA=,&ECB=,&LONG=,&RELEASE=,&RSAOPT=,    X00150002
               &SUSPEND=N,&RELATED=                                     00200002
&NAME IHBPSINR &FORM,TYPE=FIX,LA=&LA,A=&A,EA=&EA,ECB=&ECB,             X00250002
               LONG=&LONG,RELEASE=&RELEASE,RSAOPT=&RSAOPT,             X00300002
               SUSPEND=&SUSPEND                                         00350002
         MEND                                                           00400002
*        */                                                             00450002
* PGFIX:                                                                00650002
*   MACRO                                                               01850002
*    KEYS(A,                       /* VIRTUAL ADDR OF PAGE TO BE FIXED  02050002
*                                     (R FORM ONLY)                  */ 02250002
*         LA,                      /* ADDR OF FIRST ENTRY OF A VIRTUAL  02450002
*                                     SUBAREA LIST(L FORM ONLY       */ 02650002
*         EA,                      /* END ADDR+1 OF A VIRTUAL AREA TO   02850002
*                                     BE FIXED                       */ 03050002
*         ECB,                     /* ADDR OF EVENT CONTROL BLOCK    */ 03250002
*         LONG,                    /* LONG(N)-AREA OR PAGE TO BE FIXED  03450002
*                                          FOR A SHORT TIME             03650002
*                                     LONG(Y)-AREA OR PAGE TO BE FIXED  03850002
*                                          FOR A LONG TIME (DEFAULT) */ 04050002
*         RELEASE,                 /* RELEASE(Y)-CONTENTS OF ENTIRE     04250002
*                                          VIRTUAL PAGE DISCARDED       04450002
*                                     RELEASE(N)-CONTENTS OF PAGE       04650002
*                                          REMAIN INTACT (DEFAULT)   */ 04850002
*         RSAOPT,                  /* ALLOWED WITH L FORM ONLY          05050002
*                                     RSAOPT(Y)-REAL ADDR ORIGIN OF     05250002
*                                          SPECIFIED VIR. ADDR PLACED   05450002
*                                       IN SECOND HALF OF PARMLIST      05650002
*                                     RSAOPT(N)-NO REAL ADDR RETURNED*/ 05850002
*         RELATED,                 /* COMMENT FIELD TO STATE WHERE      05900002
*                                     PGFREE OCCURS                  */ 05950002
*         RTCD);                   /* RETURN CODE FROM SVC           */ 06050002
*         ANS('?'||MACLABEL||'PGFIXP '||MACLIST||MACKEYS||';');         06060002
*%  END PGFIX;                                                          06070002