AS400 CL: Run a command in a target system from the current system

-

Below Command will submit a Command (here a job with Parameter) in the remote system where the PF file of the DDM file resides. The job will be submitted with the users default jobd. QGPL/TSTJOBD gets overidden.

To run this command you need to a file (Lets say SYS2) in the target system and a DDM file (RUSYS2 for that file SYS2 in target system) in the source system for that file. The command has no separate parameter for the remote system information; it know the command has to run in the system where the PF file of the DDM file is.

In this case SYS2 PF resides in SYSTEM2 and RUSYS2 DDM file resides in SYSTEM1. This command will the run in SYSTEM1 will submit the job to call TSTLIB/PGMEML in SYSTEM2

  SBMRMTCMD CMD('SBMJOB CMD(CALL PGM(TSTLIB/PGMEML) PARM(''DUMMY@XEMAIL.COM'')) JOBD(QGPL/TSTJOBD)') DDMFILE(TSTLIB/RUSYS2)                      

Comments

Post a Comment

Popular posts from this blog

AS400 : Add a new line in text in email SNDSMTPEMM

-
Declare  ** NAMED CONSTANTS FOR CARRIAGE RETURN  Which will move the control to next line                      D CR              C                   CONST(X'0D')                  //0->Zero D vSepj           S              1    Inz('/')   D vQot            S              1    INZ('''')  DRunCommand       PR                  extpgm('QCMDEXC')                D pCommand                    2560    const                            D pCmdLength                    15  5 const                            D pCommand        S           2560                                     D pCmdLength      S             15  5 inz(2560)                        pComdse  = 'SNDSMTPEMM RCP(' + %Trim(vpToAdr) + %Trim(vpCcAdr) +                       %Trim(vpBccAdr)  + ') SUBJECT(' +                                            %Trim(vpSubject) + ')';        vpContent = ‘TEST’;                      vpContent = %Trim(vpConten
Read more

AS400 Display: Radio Button (SNGCHCFLD)

-
Radio button can be added to the AS400 Display. In the below code we have added a Radio button with 2 option 'Today' or 'Tomorrow' DSPF: A            OPTION         2Y 0B  3 42SNGCHCFLD           A                                      CHOICE(1 'Today')   A                                      CHOICE(2 'Tomorrow') The OPTION can be used used in RPG program as PGM:   If Option =  1 ;                    Msg = 'Today';               ElseIf Option = 2 ;                Msg = 'Tomorrow';           EndIf;                            
Read more

AS400 Display File: Check Box (MLTCHCFLD)

-
Check box can be added to the AS400 Display using the Multi Choice Field. Each Choice in the MLTCHCFLD should have a Choice control defined as below. These Choice Control can be used in the Program logic. A            MOPT           2Y 0B  3 58MLTCHCFLD               A                                      CHOICE(1 'Shipment')     A                                      CHOICE(2 'Transfer')     A                                      CHOICE(3 'Ship to ')     A                                      CHOICE(4 'Model')       A                                      CHCCTL(1 &CHC1)         A                                      CHCCTL(2 &CHC2)         A                                      CHCCTL(3 &CHC3)         A                                      CHCCTL(4 &CHC4)         A            CHC1           1Y 0H                               A            CHC2           1Y 0H                               A            CHC3           1Y 0
Read more