*  %     /*                                                             00050002
         MACRO                                                          00100002
&NAME    PGOUT &FORM,&LA=,&A=,&EA=,&ECB=,&KEEPREL=                      00150002
&NAME IHBPSINR &FORM,TYPE=OUT,LA=&LA,A=&A,EA=&EA,                      X00200002
               KEEPREL=&KEEPREL                                         00250002
         MEND                                                           00300002
**/                                                                     00350002
*   PGOUT: MACRO                                                        00360002
*      KEYS(A,                     /* VIRTUAL ADDR OF PAGE TO BE PAGED  02350002
*                                     OUT- R FORM ONLY               */ 03150002
*         LA,                      /* ADDR OF FIRST ENTRY OF A VIRTUAL  03550002
*                                     SUBAREA LIST(L FORM ONLY       */ 03950002
*         EA,                      /* END ADDR+1 OF A VIRTUAL AREA TO   04350002
*                                     BE FIXED                       */ 04750002
*         KEEPREAL,                /* KEEPREAL(Y)-VIRTUAL PAGES NOT     05150002
*                                     TO BE INVALIDATED                 05550002
*                                     KEEPREAL(N)-VIR PAGE WILL BE      05950002
*                                     MARKED INVALID                 */ 06350002
*         RTCD);                   /* RETURN CODE FROM SVC           */ 06750002
*      ANS('?'||MACLABEL||'PGOUTP '||MACLIST||MACKEYS||';');            06800002
*%END;                                                                  99150002