MACRO                                                          00001000
&NAME    CPF   &TEXT                                                    00002000
         LCLA  &LEN                                                     00007000
&LEN     SETA  K'&TEXT-2                                                00008000
&NAME    LA    R1,=C&TEXT MSG TEXT                                      00009000
         LA    R0,&LEN -      DATA LENGTH                               00010000
         DC    X'83100008' -  EXECUTE CP CONSOLE FUNCTION               00011000
         MEND                                                           00012000