RPGLE - Variables for message subfile

    RPGLE  - Variables for message subfile

D                 DS                        inz
     D STKCNT                001    004B 0
     D DTALEN                005    008B 0
     D ERRCOD                009    012B 0
      *
      *
      * Program Info
      * ~~~~~~~~~~~~~
     D*               SDS
     D* @PGM                 001    010
     D* @Parms               037    039  0
     D* @JOB                 244    253
     D* @UserId              254    263
     D* @JOB#                264    269  0
     C                   eval      PgmQ = @PgmName
     C                   eval      DtaLen = 60
      *
      * Initialize the message subfile fields
      *
     C                   movel     'CODMSGF'     MSGF             20
     C                   movel     '*LIBL'       MSGLIB           10
     C                   move      MSGLIB        MSGF
     C                   move      *blanks       MSGKY            04
     C                   move      *blanks       MSGDTA           80
     C                   movel     '*DIAG'       MSGTYP           10
     C                   movel     '*ALL'        MSGRMV           10
     C                   movel     *blanks       MSGID            07
      *