&PL      PROC                                                           ECB00010
ECB      NAME                                                           ECB00020
.*       ECB   NO PARAMETERS                                            ECB00030
.*                                                                      ECB00040
.*       GENERATES TWO FULLWORDS                                        ECB00050
.*                                                                      ECB00060
         LCL   &X                                                       ECB00070
&X       SET   '&PL.        '(1,8)                                      ECB00080
                   CNOP  0,4                                            ECB00090
&X                 DC    X'8000'                                        ECB00100
                   DC    X'8000'                                        ECB00110
                   DC    A(0)                                           ECB00120
         END                                                            ECB00130
