WrkMsgs

From MidrangeWiki
Revision as of 05:31, 4 June 2014 by Houstonking (talk | contribs)
Jump to: navigation, search

The following utility can be used to browse and edit iSeries message files.


Contents

CMD

/*============================================================================*/
/* Name...: WRKMSGS                                                           */
/* Version: n/a                                                               */
/* Purpose: Work with Message Descriuptions                                   */
/* Summary:                                                                   */
/*        : 1) Call CL                                                        */
/* Params :                                                                   */
/*        : i_FILE    : Message File name                                     */
/*        : i_LIB     : Message File lib                                      */
/* Useage :                                                                   */
/* Compile:                                                                   */
/*  CRTCMD ??CMD(*LIBL/WRKMSGS)                                               */
/*         ??PGM(*LIBL/WRKMSGSC)                                              */
/*         ?*SRCFILE(*LIBL/QCMDSRC)                                           */
/*         ?*SRCMBR(WRKMSGS)                                                  */
/*         ??REPLACE(*NO)                                                     */
/* Log....:                                                                   */
/*  06AUG11 JK- Updated                                                       */
/* Notes..:                                                                   */
/*  COURTESY OF CLOVER BUSINESS ASSOCIATES LTD 1997                           */
/*============================================================================*/
             CMD        PROMPT('Work with message descriptions')
             PARM       KWD(FILE) TYPE(FILE) MIN(1) PROMPT('MESSAGE +
                          FILE NAME (GEN*,*ALL)')

 FILE:       QUAL       TYPE(*GENERIC) LEN(10) SPCVAL((*ALL)) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*USRLIBL) (*ALLUSR) (*ALL)) +
                          PROMPT('LIBRARY')

CL

/*=========================================================================== */
/* Name...: WRKMSGSC                                                          */
/* Version: n/a                                                               */
/* Purpose: Run test cases for EDP824D                                        */
/* Summary:                                                                   */
/*          1) Dump *MSGF to temp file                                        */
/*          2) Run pgm                                                        */
/* Params.:                                                                   */
/*        : i_FILELIB : Message File                                          */
/* Useage :                                                                   */
/* Compile:                                                                   */
/*  CRTCLPGM ??PGM(R50MODS/*PGM)                                              */
/*           ?*SRCFILE(*LIBL/QCLSRC)                                          */
/*           ?*SRCMBR(WRKMSGSC)                                               */
/*           ??REPLACE(*YES)                                                  */
/* Log....:                                                                   */
/* 2014May19 JK- Updated                                                      */
/*                                                                            */
/*----------------------------------------------------------------------------*/
             PGM (&FL)
             DCL &FL   *CHAR 20

             DCL &MSG  *CHAR 80
             DCL &MS   *CHAR 7
             DCL &SYSDTA  *CHAR 750                      /* /002 */
             DCL &SYSVR   *CHAR 6                        /* /002 */

             MONMSG CPF0000 EXEC(GOTO ERROR)

             /* Dump *MSGF to temp file */
             DSPOBJD    OBJ(%SST(&FL 11 10)/%SST(&FL 1 10)) +
                          OBJTYPE(*MSGF) OUTPUT(*OUTFILE) +
                          OUTFILE(QTEMP/QADSPOBJ)

             OVRDBF QADSPOBJ QTEMP/QADSPOBJ SECURE(*YES) SHARE(*NO)

             RTVDTAARA  DTAARA(QSS1MRI) RTNVAR(&SYSDTA)        /* /002 */
             CHGVAR     VAR(&SYSVR) VALUE(&SYSDTA)             /* /002 */

             /* Run pgm */
             CALL WRKMSGSR (&FL  &SYSVR) /* /002 */
             RETURN

             ERROR:       RCVMSG     MSGTYPE(*EXCP) MSGDTA(&MSG) MSGID(&MS)
                          SNDPGMMSG  MSGID(&MS) MSGF(QCPFMSG) MSGDTA(&MSG) +
                                       MSGTYPE(*ESCAPE)
EOJ:
             ENDPGM

DDS

     A*========================================================= 
     A*/ Name...: WRKMSGSD                                       
     A*/ Version: n/a                                            
     A*/ Purpose: Work with message files                        
     A*/ Summary:                                                
     A*/   N/A       :                                           
     A*/ Params.:                                                
     A*/   N/A       :                                           
     A*/ LDA....:                                                
     A*/   N/A       :                                           
     A*/ Compile:                                                
     A*/   CRTDSPF FILE(WRKMSGSD)                                
     A*/           SRCFILE(QDDSSRC)                              
     A*/           SRCMBR(WRKMSGSD)                              
     A*/           REPLACE(*YES)                                 
     A*/ Notes..:                                                
     A*/   1) This *pgm courtesy of CLOVER                       
     A*/ Log....:                                                
     A*/ 2014May19 - Copied from archive                         
     A*/=========================================================
     A*  INDARA IS REQUIRED FOR RETKEY/RETCMDKEY
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      REF(*LIBL/QADSPOBJ)
     A                                      MSGLOC(23)
     A                                      INDARA
     A                                      PRINT(*LIBL/QSYSPRT)
     A                                      OPENPRT
     A                                      ERRSFL
      *-------------------------------------------------------------------------
      *  PANEL 1 - LIST OF MESSAGE FILES
      *-------------------------------------------------------------------------
     A          R WRKMSG01                  PUTOVR
     A                                  1  3'WRKMSGS.01'
     A                                  1 20'  WORK WITH MESSAGE DESCRIPTIONS '
     A                                      DSPATR(RI)
     A                                  1 60SYSNAME
     A                                  1 72DATE OVRATR EDTCDE(Y)
     A                                  2 72TIME OVRATR
     A                                  2 26'   MESSAGE FILES    '
     A                                      DSPATR(HI)
     A                                  2  2'12-WORK WITH'
     A                                  4  2'   FILE       LIBRARY    TEXT     -
     A                                                                         '
     A                                      DSPATR(UL)

     A          R WRKMSGS1                  SFL
     A  25                                  SFLNXTCHG
     A            #SEL           2   B  5  2CHECK(AB)
     A                                      VALUES('  ' '12')
     A  51                                  DSPATR(RI PC)
     A            ODOBNM    R            + 1
     A            ODLBNM    R            + 1
     A            ODOBTX    R            + 1

     A          R WRKMSGC1                  SFLCTL(WRKMSGS1) CA03
     A                                      CA12
     A                                      SFLSIZ(50) SFLPAG(16)
     A                                      OVERLAY PUTOVR
     A N21 22                               SFLDSP
     A N21                                  SFLDSPCTL
     A  21                                  SFLCLR
     A N11                                  ROLLUP(19)
     A  11                                  SFLEND
     A  71                                  SFLMSG('UNABLE TO WORK WITH FILE')

     A            #DSPC1         4S 0H      SFLRCDNBR
     A                                 21  2 ' '
     A                                 24  5'F3=EXIT'
     A                                 24 17'F12 CANCEL'

      *-------------------------------------------------------------------------
      *  INSERT PANEL - DETAILS OF THE SELECTION
      *-------------------------------------------------------------------------
     A          R WRKMSGA1                  CLRL(*NO) RETKEY RETCMDKEY
     A                                  3  2'FILE'
     A            ODOBNM    R            + 1DSPATR(HI)
     A            ODLBNM    R            + 1DSPATR(HI)
     A            ODOBTX    R            + 1DSPATR(HI)


     A*-------------------------------------------------------------------------
     A*  PANEL 2 - LIST OF MESSAGES
     A*-------------------------------------------------------------------------
     A          R WRKMSG02
     A*%%TS  SD  20140529  201332  JKING       REL-V6R1M0  5761-WDS
     A                                      PUTOVR
     A                                  1  3'WRKMSGS.02'
     A                                  1 20'  WORK WITH MESSAGE DESCRIPTIONS '
     A                                      DSPATR(RI)
     A                                  1 60SYSNAME
     A                                  1 72OVRATR
     A                                      DATE
     A                                      EDTCDE(Y)
     A                                  2 72TIME
     A                                      OVRATR
     A                                  2 26'MESSAGE DESCRIPTIONS'
     A                                      DSPATR(HI)
     A                                  4  2'3-COPY, 12-WORK WITH'
     A                                  5 13'AND/OR'
     A            ANDOR          1A  B  5 20VALUES('A' 'O')
     A            SELMID         7A  B  6  5OVRDTA
     A            SELTX1        10A  B  6 13DSPATR(PC)
     A                                      OVRATR
     A                                      CHECK(LC)
     A            SELTX2        10A  B  6 24CHECK(LC)
     A            SELTX3        10A  B  6 35CHECK(LC)
     A            SELTX4        10A  B  6 46CHECK(LC)
     A            SELTX5        10A  B  6 57CHECK(LC)
     A            SELTX6        10A  B  6 68CHECK(LC)
     A                                  7  2'   MESSAGE  TEXT                  -
     A                                                                         -
     A                                             '
     A                                      DSPATR(UL)
     A          R WRKMSGS2                  SFL
     A  25                                  SFLNXTCHG
     A            #SEL           2   B  8  2DSPATR(HI)
     A  25N50                               DSPATR(PC)
     A            MESSID         7       + 1
     A            MESSTX        65       + 1
     A            MSTEXT       132   H
     A            MSSECL       800   H


     A          R WRKMSGC2                  SFLCTL(WRKMSGS2)
     A                                      CA03 CF05 CA12 CF21
     A                                      SFLSIZ(50) SFLPAG(14)
     A                                      OVERLAY PUTOVR
     A N21 22                               SFLDSP
     A N21                                  SFLDSPCTL
     A  21                                  SFLCLR
     A N11                                  ROLLUP(19)
     A  11                                  SFLEND
     A  71                                  SFLMSG('UNABLE TO EDIT MESSAGE')
     A            #DSPC2         4S 0H      SFLRCDNBR
     A                                 22  2 ' '
     A                                 24  5'F3=EXIT             F5=REFRESH    -
     A                                            F12=PREVIOUS        F21=PRINT'


      *-------------------------------------------------------------------------
      *  MISCELLANEOUS PANELS
      *-------------------------------------------------------------------------

     A          R @CONFIRM                  OVERLAY CLRL(*NO) CF05 CA12
     A                                 23  7'PRESS F5 TO CONFIRM.'

     A          R @BOX                      OVERLAY PROTECT CLRL(3)
     A                                 22  2'                                  -
     A                                                                         -
     A                                                ' DSPATR(RI)
     A                                 23  2' ' DSPATR(RI)
     A                                 23 80' ' DSPATR(RI)
     A                                 24  2'                                  -
     A                                         F12=PREVIOUS                    -
     A                                                ' DSPATR(RI)

     A          R @CLEAR1                   OVERLAY
     A                                  8  1' '

RPG