My appls make use of a template developed by our team. I did not author the template. Can someone tell me if our use of the word JNAME is making use of an ESP global/universal/reserved word JNAME, or is this template creating JNAME when it first uses the word?
I did not get any hits for JNAME in Broadcom documentation, so I am guessing my template creates the variable.
It is line 0012 below where I first see JNAME
000012 IF %USER1 NE '' THEN JNAME = 'W' + %USER1 + 'ZC' + %REGLTR + '%NUM.'
Here is my member for the template
VIEW TTAT.U44.FACT.SYMLIB($INIWNZC)
****** ***************************** Top of Data ******************************
000001 /*#####################################################
000002 /* THIS TEMPLATE WILL INSERT ALL HEADER INFORMATION
000003 /* FOR A FACETS WNZC APPL BY PASSING IT THE
000004 /* ENVIRONMENT AS DB NAME AND THE APPL NUMBER.
000005 /* EXAMPLE OF CODE DEFINED IN APPLICATION:
000006 /* $INIAPPL ENV(XXXX) NUM(XXX)
000007 /*#####################################################
000008
000009 TEMPLATE $INIAPPL ( ENV() NUM() )
000010
000011 INVOKE 'TTAT.U44.FACT.SYMLIB(VT%ENV.)'
000012 IF %USER1 NE '' THEN JNAME = 'W' + %USER1 + 'ZC' + %REGLTR + '%NUM.'
000013 IF %USER1 = '' THEN JNAME = 'WNZC' + %REGLTR + '%NUM.'
000014 IF LENGTH(%USER1) GT 1 THEN JNAME = 'ADHOC'
000015 APPL %JNAME POST_OLDEST WAIT
000016 INVOKE TTAT.U44.FACT.APPLLIB($DEFAULT)
000017 DOCLIB 'TTAT.U44.FACT.DOCLIB'
000018
000019 ENDTEMPL
000020
000021
****** **************************** Bottom of Data ****************************
BELOW EXAMPLE OF AN APPL WHICH INVOKES THAT TEMPLATE, AND THEN USES THE VARIABLE %JNAME. IN APPLSTART
VIEW TTAT.U44.FACT.APPLLIB(WNZCB999)
****** ***************************** Top of Data ******************************
000001 INVOKE 'TTAT.U44.FACT.SYMLIB($INIWNZC)'000002 $INIAPPL ENV(REL) NUM(999)
000003 INVOKE 'TTAT.U44.FACT.SYMLIB(WINAGT)'
000004 RESOURCE ADD(2,THR_WNZC%REGLTR._MAINT)
000027 /*********************************************************************/
000028 APPLSTART APPLSTRT.%JNAME. 000029 ENDJOB
... MEMBER CONTINUES ....