DCL DD RECEIVER  CHAR(13);
DCL DD NUMBER    PKD(9,2) INIT(P'-1.23');
DCL DD PICTURE   CHAR(25) /* COBOL PICTURE --,---,--9.99 */
          INIT(X'B14040AE60AEB2B2B06BAEB2B2B2B06BAEB2B2AAB34BAEAAAA');
               /*            - -   ,   - - -   ,   - - 9   .   9 9 */

DCL SPCPTR .PARM1 PARM;
DCL DD PARM-NBR PKD(15,5) BAS(.PARM1);

DCL OL PARMS(.PARM1) PARM EXT MIN(1);

ENTRY * (PARMS) EXT;
    CPYNV        NUMBER, PARM-NBR;
    EDIT         RECEIVER, NUMBER, PICTURE;

    CPYBLAP      MSG-TEXT, "[", " ";
    CPYBLAP      MSG-TEXT(2:14), RECEIVER, "]";

DCL DD WHERE  BIN(2);
DCL DD LENGTH BIN(2);

    VERIFY(B)    WHERE,  RECEIVER, " "/ZER(=+3);
    SUBN         LENGTH, 14, WHERE; /* 14 = 13 + 1 */
    CPYBOLAP     RECEIVER, RECEIVER(WHERE:LENGTH), " ";:

    CPYBLA       MSG-TEXT(18:1), "[";
    CPYBLAP      MSG-TEXT(19:14), RECEIVER, "]";
    CALLI        SHOW-MESSAGE, *, .SHOW-MESSAGE;

    RTX          *;

%INCLUDE SHOWMSG