Now, Get RPG Codes in all three formats only on this website on every RPGLE related programming article.

Fixed, /Free and Fully Free RPG


Job Message Queue in AS400

Job Message Queue in AS400
Job Message Queue in AS400, Job message queue, msgq, message queue, types of message queue, types of msgq, as400, ibmi, introduction, about, how, why, what , what is
Job Message Queue in AS400

Job Message Queue

Job Message Queues are used for receiving requests such as commands to be processed and sending messages that are the outcome of the processing requests. The messages are sent to the job requester. Job message queues exist for each job and it's available only up to the lifetime of the Job. Job message queue consists of an external message queue (*EXT) and a set of call stack entry message queues for the OPM program and ILE procedures within that job.

Example for sending a message to the Job(*EXT) Message queue

We can use the SNDPGMMSG command to send messages to the *EXT message queue.

SNDPGMMSG  MSG('Hello This is AS400andSQLTricks.com') 

Please note that we cannot run this command from the command line. So we will write a simple CL program for the demo.

  • Let's Create a CL source named TEST in library EASYCLASS1 and source PF named RPGLE using F6 on WRKMBRPDM.
  •                       Start Source Entry Utility (STRSEU)                     
                                                                                  
    Type choices, press Enter.                                                    
                                                                                  
    Source file  . . . . . . . . . . SRCFILE      > RPGLE                         
      Library  . . . . . . . . . . .              >   EASYCLASS1                  
    Source member  . . . . . . . . . SRCMBR         TEST                          
    Source type  . . . . . . . . . . TYPE           CLLE                          
    Text 'description' . . . . . . . TEXT           Job Message Queue Demo        
                                                                                  
    

    Write the source as below:

    PGM                                                               
                 SNDPGMMSG  MSG('Hello This is AS400andSQLTricks.com')
    ENDPGM                                                            
    

    Compile the source using option 14 against the source member or using the CRTBNDCL command. Once the object is created then call the program from the command line as follows:

     Parameters or command                                                        
     ===> CALL TEST                                                               
     F3=Exit          F4=Prompt             F5=Refresh            F6=Create       
     F9=Retrieve      F10=Command entry     F23=More options      F24=More keys   
    

    The message will be displayed at the bottom row.

                               Work with Members Using PDM                
                                                                             
     File  . . . . . .   RPGLE                                               
       Library . . . .     EASYCLASS1           Position to  . . . . .       
                                                                             
     Type options, press Enter.                                              
      2=Edit         3=Copy  4=Delete 5=Display       6=Print     7=Rename   
      8=Display description  9=Save  13=Change text  14=Compile  15=Create mo
                                                                             
     Opt  Member      Type        Text                                       
          TEST        CLLE                                                   
                                                                             
                                                                             
                                                                             
                                                                             
                                                                             
                                                                             
                                                                             
                                                                             
     Parameters or command                                                   
     ===>                                                                    
     F3=Exit          F4=Prompt             F5=Refresh            F6=Create  
     F9=Retrieve      F10=Command entry     F23=More options      F24=More ke
     Hello This is AS400andSQLTricks.com                                                                                                             
    

    Related Post

    Post a Comment

    © AS400 and SQL Tricks. All rights reserved. Developed by Jago Desain