PRINT ON,GEN
         MACRO
         MESSAGE  &MSGID=,&FUNCTION=,&COMMAND=,&SEARCH=0,&SELECT=0,    X
               &MULTLINE=0
         LCLA  &FUNC1
&SINGQUOT SETC  ''''
         AIF   ('&FUNCTION' EQ 'COMMAND').CMD,                         X
               ('&FUNCTION' EQ 'REPLY').RPLY,                          X
               ('&FUNCTION' EQ 'EXEC').EXEC,                           X
               ('&FUNCTION' EQ 'EVENT').EVNT
        MNOTE  8,'AL001 FUNCTION MUST BE COMMAND, REPLY, EVENT OR EXEC'
         AGO    .END
.CMD     ANOP
&FUNC1   SETA   1
         AGO    .CONT1
.RPLY    ANOP
&FUNC1   SETA   2
         AGO    .CONT1
.EXEC    ANOP
&FUNC1   SETA   4
         AGO    .CONT1
.EVNT    ANOP
&FUNC1   SETA   8
.CONT1   ANOP
&LMSGID  SETC  'L''MSG&SYSNDX'
&QUOTEM  SETC  '&MSGID'(1,1)
&LCMD    SETC  'L''CMD&SYSNDX'
&ENTLNG  SETC  'ENTL&SYSNDX'
&QUOTE   SETC  '&COMMAND'(1,1)
.*
         AIF   ('&SEARCH' EQ '0').CONT2
&LSRCH   SETC  'L''SCH&SYSNDX'
&SCHLNG  SETC  'SCHL&SYSNDX'
&QUOTEL  SETC  '&SEARCH'(1,1)
&FUNC1   SETA  &FUNC1+16
         AIF   ('&SELECT' EQ '0').CONT2,                               X
               ('&SELECT' EQ 'SELECT').CONT2,                          X
               ('&SELECT' EQ 'EXCLUDE').EXCLD
  MNOTE  8,'AL002 SELECT OR EXCLUDE ARE THE ONLY VALID SELECT KEYWORDS'
         AGO    .END
.EXCLD   ANOP
&FUNC1   SETA   &FUNC1+32
.*
.CONT2   ANOP
         AIF   ('&MULTLINE' EQ '0').CONT3,                             X
               ('&MULTLINE' EQ 'NO').CONT3,                            X
               ('&MULTLINE' EQ 'YES').MULTIL
        MNOTE  8,'AL002 YES OR NO ARE THE ONLY VALID MUTLLINE KEYWORDS'
         AGO    .END
.MULTIL  ANOP
&FUNC1   SETA   &FUNC1+64
.CONT3   ANOP
ENT&SYSNDX  DC    AL2(&ENTLNG)
            DC    AL1(&LMSGID)
            AIF   ('&QUOTEM' EQ '&SINGQUOT').NOQUOTM
MSG&SYSNDX  DC    C'&MSGID'             MESSAGE ID
            AGO   .ENDMSGID
.NOQUOTM ANOP
MSG&SYSNDX  DC    C&MSGID               MESSAGE ID
.ENDMSGID   ANOP
            DC    AL1(&FUNC1)           FUNCTION TO PERFORM
            DC    AL1(0)                RESERVED
.*
            DC    AL1(&LCMD)
.*
         AIF   ('&QUOTE' EQ '&SINGQUOT').NOQUOTE
CMD&SYSNDX  DC    C'&COMMAND'         COMMAND, REPLY OR FIELD TO PASS
         AGO   .ENDCMD
.NOQUOTE ANOP
CMD&SYSNDX  DC    C&COMMAND           COMMAND, REPLY OR FIELD TO PASS
.*
.*
.ENDCMD  ANOP
         AIF   ('&SEARCH' EQ '0').ENDSRCH,
.*
            DC    AL1(&LSRCH)
.*
         AIF   ('&QUOTEL' EQ '&SINGQUOT').NOQUOTS
SCH&SYSNDX  DC    C'&SEARCH'          SEARCH ARGUMENT
         AGO   .ENDSRCH
.NOQUOTS ANOP
SCH&SYSNDX  DC    C&SEARCH            SEARCH ARGUMENT
.*
.ENDSRCH ANOP
ENTL&SYSNDX  EQU  *-ENT&SYSNDX
.END     ANOP
         MEND
MSGTABLE CSECT
START    EQU   *
         DC    AL2(LENGTH)
         MESSAGE MSGID=DFH4583,FUNCTION=EXEC,COMMAND='S OPSAUTO'
         MESSAGE MSGID=SR515,FUNCTION=COMMAND,                         +
               COMMAND='F PRODAOR1,SR00'
         MESSAGE MSGID=IEF433D,FUNCTION=REPLY,COMMAND=NOHOLD
         MESSAGE MSGID=IEF238D,FUNCTION=REPLY,COMMAND=WAIT,            +
               SEARCH='WAIT',SELECT=SELECT
         MESSAGE MSGID=LMRK60899A,FUNCTION=REPLY,COMMAND=ACK,          +
               SEARCH='DUMP DAILED',SELECT=SELECT
         MESSAGE MSGID='DFH1500 - ZCICPA1',FUNCTION=COMMAND,           +
               COMMAND='F PRODAOR1,SR00',                              +
               SEARCH='CONTROL IS BEING GIVEN',SELECT=SELECT
         MESSAGE MSGID=IEA611I,FUNCTION=EXEC,                          +
               COMMAND='S OPSAUTO'
         MESSAGE MSGID='IECTMS4 04D',FUNCTION=REPLY,COMMAND=U
         MESSAGE MSGID='OFC100I (OFCXNSR)',FUNCTION=EXEC,              +
               COMMAND='S OPSAUTO',                                    +
               SEARCH='sendputm - HDR line too long',SELECT=SELECT
         MESSAGE MSGID='TSP602I',FUNCTION=EXEC,                        +
               COMMAND='S OPSAUTO'
         MESSAGE MSGID='TSP093A',FUNCTION=REPLY,                       +
               COMMAND='Y'
         MESSAGE MSGID='IEA793A',FUNCTION=REPLY,                       +
               COMMAND='D'
         MESSAGE MSGID='ARC0381A',FUNCTION=REPLY,                      +
               COMMAND='WAIT'
         MESSAGE MSGID='$HASP375 CICSAAFX',FUNCTION=COMMAND,           +
               COMMAND='S OPER,N=RESTABND ',                           +
               SEARCH='ESTIMATE EXCEED',                               +
               SELECT=SELECT
         MESSAGE MSGID='IECTMS2 050',FUNCTION=REPLY,COMMAND=U,         +
               SEARCH=',500',                                          +
               SELECT=SELECT
         MESSAGE MSGID='DFHSI1517 ZCICPA3',FUNCTION=COMMAND,           +
               COMMAND='F PRODAOR3,CEMT S TE(LPR2) ACQ ',              +
               SEARCH='Control is being given',                        +
               SELECT=SELECT
LENGTH   EQU   *-START
          END