// DATE 170520
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-$MSG
       MACRO                                                            
&LABEL $MSG  &SEQNR-,&ERRNR-,&CNT-,&TXT-
.********************************************************************** 
.*                                                                    * 
.*TITLE: DEFINE (ERROR) MESSAGE.                                      * 
.*                                                                    * 
.*STATUS: RELEASE 1                                                   * 
.*                                                                    * 
.*FUNCTION/OPERATION:                                                 * 
.*   THIS MACRO WILL CREATE INLINE DC STATEMENTS FOR A MESSAGE.       * 
.*                                                                    * 
.*INPUT: MACRO USES THE KEYWORD PARAMETERS AS FOLLOWS:                * 
.*   SEQNR  - SEQUENCE NUMBER FOR UNIQUE LABELING OF MESSAGES.        * 
.*   ERRNR  - MESSAGE ERROR NUMBER.                                   * 
.*   CNT    - LENTGH OF MESSAGE TEXT.                                 * 
.*   TXT    - MESSAGE TEXT. (MAX LENGTH IS 50 CHARACTERS)             * 
.*                                                                    * 
.*OUTPUT:                                                             * 
.*   DC INSTRUCTIONS.                                                 * 
.*                                                                    * 
.*NOTES: THIS MACRO IS REQUIRED FOR ASSEMBLY OF ##ERMS                *
.*                                                                    * 
.*HISTORY: 17/05/20 INITIAL VERSION.                                  * 
.*                                                                    * 
.********************************************************************** 
       TEXT
       AIF   (T'&LABEL EQ 'O').NOLBL    . ADVANCE IF NO LABEL.
&LABEL EQU   *                         
.*
.NOLBL ANOP                                                             
       AIF   (T'&SEQNR NE 'O').SEQOK    . SEQ NUMBER SPECIFIED ?          
       MNOTE 08,'NO SEQUENCE NUMBER SPECIFIED'                
.SEQOK ANOP
       AIF   (T'&ERRNR NE 'O').ERROK    . ERROR NUMBER SPECIFIED ?          
       MNOTE 08,'NO ERROR NUMBER SPECIFIED'                
.ERROK ANOP
       AIF   (T'&CNT NE 'O').CNTOK      . COUNT NUMBER SPECIFIED ?          
       MNOTE 08,'NO COUNT NUMBER SPECIFIED'                
.CNTOK ANOP
       AIF   (T'&TXT NE 'O').TXTOK      . SEQ NUMBER SPECIFIED ?          
       MNOTE 08,'NO MESSAGE TEXT SPECIFIED'                
.TXTOK ANOP
.*
ERM&SEQNR EQU   *                         ADDRESS OF MESSAGE
       DC    CL(ERMLDN)'&ERRNR'        ERROR NUMBER
       DC    AL(ERMLCT)(&CNT+ERMLCT)   COUNT OF MESSAGE
       DC    CL&CNT'&TXT'            
*** END OF EXPANSION ***     
       SPACE 1                                           
.MEND  MEND                                                             
// CEND
// END
*
// READER CONSOLE