Pass Parameters more than 32 byte in SBMJOB command using RQSDTA

-


Variable greater than 32 byte length will be truncated to 32 byte (including the trailing spaces) when a call command is submitted using SBMJOB CMD(CALL PGM(*LIBL/PGM1) PARM( &ERROR & USER ....) Since you are trying to pass the value of a variable to another job from your interactive job environment but the other wont share the same environment hence the variable values are not accessible. hence these values are sent as values to another job and the default length is 32 per variable in CMD.
When your RPG/CL/CBL program get these variable the Error will have 32 byte of Error and then the 32 of User and so on (result in undesirable effect).

One way to do it put a limiter value at the end of each variable so there is no trailing spaces, but the best way to do that is instead using SBMJOB CMD(CALL PGM(*LIBL/PGM1) PARM( &ERROR & USER ....)  use SBMJOB RQSDTA(CMDV)

Example shown below (CL Program) but similar can be done in RPG or COBOL build the command string and add that to the submit command string then run the CL command using the QCMDEXC

 DCL        VAR(&Q) TYPE(*CHAR) LEN(1) VALUE(X'7D')                          (X'7D ->  ' )

   CHGVAR     VAR(&CMDV) VALUE('CALL PGM(*LIBL/PGM1) + 
                PARM('  || &Q || &ERROR   || &Q  *BCAT &Q + 
                              || &USER    || &Q  *BCAT &Q + 
                              || &EMLTADR || &Q  *BCAT &Q + 
                              || &SUBJECT || &Q  *BCAT &Q + 
                              || &CONTENT || &Q  *BCAT &Q + 
                              || &SPLFILE || &Q  *BCAT &Q + 
                              || &CCADR   || &Q  *BCAT &Q + 
                              || &BCCADR  || &Q  *BCAT &Q + 
                              || &JOBNM   || &Q  *BCAT &Q + 
                              || &JOBUSR  || &Q  *BCAT &Q + 
                              || &JOBNBR  || &Q  *BCAT &Q + 
                              || &SPLNBR  || &Q || ')')     
   SBMJOB     RQSDTA(&CMDV) JOB(SNDEML) JOBD(*USRPRF) +     
                JOBQ(QSYS/QSYSNOMAX) USER(USERX)            

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