Endevor

 View Only

 C1BMXIN symbolic query for C1BMXRCN

Danny Cheng's profile image
Danny Cheng posted Jul 24, 2024 07:53 AM

PACKAGE SHIPMENT BATCH JCL - SYSIN CARD IMAGES - ISPSLIB(C1BMXIN)

C1BMXIN to extract the destination symbolic (DESTIN) for remote shipment.

PACKAGE SHIPMENT BATCH JCL - CONFIRMATION - ISPSLIB(C1BMXRCN) 

Extra step added to C1BMXRCN with symbolic DESTIN.

I logon to MF and perform shipment, the symbolic DESTIN cannot resolve.
Perform shipment again with the same tso session, symbolic DESTIN can be resolve.

After re-logon TSO, the symbolic DESTIN is not work for first shipment.

Do you have idea for C1BMXIN symbolic with C1BMXRCN?

===============================================================

here is the content for C1BMXIN:

)REXX SENDNODE VNBSQDSP PACKAGE DESTIN TYPRUN                          
  TRACE OFF                                                            
  WHEREAMI = 'C1BMXIN'                                                 
  SENDNODE =  SYSVAR(SYSNODE)                                          
  PARSE VAR VNBSQDSP STR "'" PACKAGE "' TO DEST " DESTIN " OPT" TAIL   
  DESTIN = STRIP(DESTIN)                                               
  IF TYPERUN = 'TYPRUN' THEN TYPRUN = ''                               
)ENDREXX                                                               

//TAILOR   EXEC PGM=IRXJCL,COND=(4,LT),                    C1BMXIN      
//         PARM='ENBPIU00 A'                                            
//TABLE    DD *     -- READS AND WRITES TO MODEL --                     
* SENDNODE DESTIN   TBLOUT                                              
 &SENDNODE &DESTIN  MODEL                                               
//MODEL    DD DSN=&VDDHSPFX..D&VNB6DATE..T&VNB6TIME..&DESTIN..AHJOB,    
//         DISP=SHR                                                     
//OPTIONS  DD *                                                         
  TYPRUN   = '&TYPRUN'                                                  
  PACKAGE  = '&VPHPKGID'                                                
  HOSTLIBS = '&VDDHSPFX..D&VNB6DATE..T&VNB6TIME..&DESTIN'               
  RMOTLIBS = '&VDDRSPFX..D&VNB6DATE..T&VNB6TIME..&DESTIN'               
//SYSEXEC  DD DISP=SHR,DSN=&I@PRFX..&I@QUAL..CSIQCLS0                   
//SYSTSPRT DD SYSOUT=*                                                  
//* *===================================================== C1BMXIN / *  

===============================================================

I have post-ship (before) and C1BMXRCN using the symbolic.

Post-Ship - CSIQOPTN(#RJNDVRB) using - &RMOTLIBS

C1BMXRCN - CSIQSENU(C1BMXRCN) using - &DESTIN

It can resolve &RMOTLIBS in "#RJNDVRB" but cannot resolve &DESTIN in "C1BMXRCN" when re-logon mainframe tso for shipment.

Perform shipment again without re-logon, it can resolve both  (&RMOTLIBS &DESTIN).

==========================================================================

Thanks for help. i found the information about the ENBPIU00. And the issue resolved.

CA Endevor - Mainframe Software (broadcom.com) - Table Tool Examples - 2020 

Joseph Walther's profile image
Broadcom Employee Joseph Walther

See the example C1BMXIN member in Package-Shipping-Model-and-Script-Examples

I just ran a test, and it runs fine for me. Allow the TAILOR step to include the DESTIN variable too, like the example below.

The TAILOR step substitutes variables not substituted by the "file tailoring", including variables in C1BMXRCN.

In C1BMXIN, for example:

//OPTIONS  DD *                                                         
  TYPRUN   = '&TYPRUN'                                                  
  PACKAGE  = '&VPHPKGID'                    

  DESTIN   = '&DESTIN'                                  
  HOSTLIBS = '&VDDHSPFX..D&VNB6DATE..T&VNB6TIME..&DESTIN'               
  RMOTLIBS = '&VDDRSPFX..D&VNB6DATE..T&VNB6TIME..&DESTIN'               
//SYSEXEC  DD DISP=SHR,DSN=&I@PRFX..&I@QUAL..CSIQCLS0