Article

CLRPGMMSG program

Sudhakar Kunji

CLRPGMMSG

 /*************************************************************************/
     /*                                                                       */
     /* System....... Utility Management System                               */
     /* Program...... CLRPGMMSG - Send Program Message with Color             */
     /* Written by... Sudhakar R Kunji                                        */
     /* Date......... 09/24/01                                                */
     /*                                                                       */
     /*                                                                       */
     /*                  Program Description                                  */
     /*                                                                       */
     /*CRTBNDCL   PGM(LIBRARY/CLRPGMMSG) SRCFILE(LIBRARY/QCLLESRC)      */
     /*SRCMBR(CLRPGMMSG)                                                      */
     /*                                                                       */
     /*                                                                       */
     /*                                                                       */
     /* * * * * * * * *  Indicator Usage * * * * * * * * * * * * * * * * * * **/
     /*                                                                       */
     /*                                                                       */
     /*                                                                       */
     /* * * * * * * * *  Externally Called Programs  * * * * * * * * *        */
     /*                                                                       */
     /* From/To     Program-Id    Parameters                                  */
     /*                                                                       */
     /*                                                                       */
     /*                                                                       */
     /* * * * * * * * * * *  Maintenance Log * * * * * * * * * * * *          */
     /*                                                                       */
     /* Req #       Date      Programmer     Modification Reason              */
     /*                                                                       */
     /*                                                                       */
     /*****************************************************************       */
             PGM        PARM(&MSG &COLOR)
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(78)
             DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(78)
             DCL        VAR(&BLUE) TYPE(*CHAR) LEN(1) VALUE(X'3A')
             DCL        VAR(&WHITE) TYPE(*CHAR) LEN(1) VALUE(X'22')
             DCL        VAR(&RED) TYPE(*CHAR) LEN(1) VALUE(X'28')
             DCL        VAR(&GREEN) TYPE(*CHAR) LEN(1) VALUE(X'40')
             DCL        VAR(&PINK) TYPE(*CHAR) LEN(1) VALUE(X'38')
             DCL        VAR(&TURQ) TYPE(*CHAR) LEN(1) VALUE(X'30')
             DCL        VAR(&YELL) TYPE(*CHAR) LEN(1) VALUE(X'32')
             DCL        VAR(&RIMG) TYPE(*CHAR) LEN(1) VALUE(X'21')
             DCL        VAR(&UNDER) TYPE(*CHAR) LEN(1) VALUE(X'24')
             DCL        VAR(&DELIM) TYPE(*CHAR) LEN(1) VALUE(X'20')
             DCL        VAR(&COLOR) TYPE(*CHAR) LEN(1)

             IF         COND((&COLOR = 'B') *OR (&COLOR = 'b')) +
                          THEN(CHGVAR VAR(&COLOR) VALUE(&BLUE))

             IF         COND((&COLOR = 'W') *OR (&COLOR = 'w')) +
                          THEN(CHGVAR VAR(&COLOR) VALUE(&WHITE))

             IF         COND((&COLOR = 'R') *OR (&COLOR = 'r')) +
                          THEN(CHGVAR VAR(&COLOR) VALUE(&RED))

             IF         COND((&COLOR = 'G') *OR (&COLOR = 'g')) +
                          THEN(CHGVAR VAR(&COLOR) VALUE(&GREEN))

             IF         COND((&COLOR = 'P') *OR (&COLOR = 'p')) +
                          THEN(CHGVAR VAR(&COLOR) VALUE(&PINK))

             IF         COND((&COLOR = 'T') *OR (&COLOR = 't')) +
                          THEN(CHGVAR VAR(&COLOR) VALUE(&TURQ))

             IF         COND((&COLOR = 'Y') *OR (&COLOR = 'y')) +
                          THEN(CHGVAR VAR(&COLOR) VALUE(&YELL))

             IF         COND((&COLOR = 'I') *OR (&COLOR = 'i')) +
                          THEN(CHGVAR VAR(&COLOR) VALUE(&RIMG))

             IF         COND((&COLOR = 'U') *OR (&COLOR = 'u')) +
                          THEN(CHGVAR VAR(&COLOR) VALUE(&UNDER))

             CHGVAR     VAR(&MSGDTA) VALUE(' ' *CAT &COLOR *CAT &MSG)
             CHGVAR     VAR(&MSGDTA) VALUE(&MSGDTA *TCAT &DELIM)

             SNDPGMMSG  MSG(&MSGDTA) TOPGMQ(*EXT)
             ENDPGM 

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to: