&PL      PROC  &P,1                                                     POS00010
POST     NAME  0                                                        POS00020
.*       THIS MACRO DOES NOT REQUIRE ANY PARAMETERS, HOWEVER            POS00030
.*       R1 WILL BE USED TO PASS FLAGS IN THE MS BYTE.                  POS00040
         LCL   &X                                                       POS00050
&X       SET   '&PL'        '(1,8)                                      POS00060
&X                 DS    0H                                             POS00070
                   LA    1,X'10'                                        POS00080
                   SLL   1,24                                           POS00090
                   SVC   12                                             POS00100
         END                                                            POS00110
