diff --git a/endevor/Automated-Test-Facility-Using-Test4Z/GETACCTC lookup.rex b/endevor/Automated-Test-Facility-Using-Test4Z/GETACCTC lookup.rex new file mode 100644 index 0000000..122a9e6 --- /dev/null +++ b/endevor/Automated-Test-Facility-Using-Test4Z/GETACCTC lookup.rex @@ -0,0 +1,18 @@ +/* REXX */ + Arg whatuser + JobAccountingCode. = '12340' + JobAccountingCode.user#01 = '127398730' + JobAccountingCode.user#02 = '127398730' + JobAccountingCode.user#03 = '106321234' + JobAccountingCode.user#04 = '106321234' + JobAccountingCode.user#05 = '111212340' + JobAccountingCode.user#06 = '124312340' + JobAccountingCode.user#07 = '121412340' + JobAccountingCode.user#08 = '118412340' + JobAccountingCode.user#09 = '124312340' + JobAccountingCode.user#10 = '114412340' + JobAccountingCode.user#11 = '123212340' + JobAccountingCode.user#12 = '111412340' + JobAccountingCode.user#13 = '106341234' + JobAccountingCode.user#14 = '301123400' + Return JobAccountingCode.whatuser diff --git a/endevor/Automated-Test-Facility-Using-Test4Z/GETACCTC.rex b/endevor/Automated-Test-Facility-Using-Test4Z/GETACCTC.rex index 122a9e6..344d668 100644 --- a/endevor/Automated-Test-Facility-Using-Test4Z/GETACCTC.rex +++ b/endevor/Automated-Test-Facility-Using-Test4Z/GETACCTC.rex @@ -1,18 +1,19 @@ -/* REXX */ - Arg whatuser - JobAccountingCode. = '12340' - JobAccountingCode.user#01 = '127398730' - JobAccountingCode.user#02 = '127398730' - JobAccountingCode.user#03 = '106321234' - JobAccountingCode.user#04 = '106321234' - JobAccountingCode.user#05 = '111212340' - JobAccountingCode.user#06 = '124312340' - JobAccountingCode.user#07 = '121412340' - JobAccountingCode.user#08 = '118412340' - JobAccountingCode.user#09 = '124312340' - JobAccountingCode.user#10 = '114412340' - JobAccountingCode.user#11 = '123212340' - JobAccountingCode.user#12 = '111412340' - JobAccountingCode.user#13 = '106341234' - JobAccountingCode.user#14 = '301123400' - Return JobAccountingCode.whatuser +/* REXX */ +/* Find and return the Accounting code value for current user/job */ + start = 540 /* it starts here */ + start = D2X(start) + TCB_Addr = C2D(Storage(start,4)) /* Current TCB Addr */ + TCB_Area = Storage(D2X(TCB_Addr),200) +/*TIOT_Addr = Substr(TCB_Area,13,4) + TIOT_jobname = Storage(C2X(TIOT_Addr),8) */ + + JSCB_Addr = Substr(TCB_Area,181,4) + JSCB_Area = Storage(C2X(JSCB_Addr),280) + JCT_Addr = Substr(JSCB_Area,261,4) + JCT_Area = Storage(C2X(JCT_Addr),100) + ACT_Addr = C2D(Substr(JCT_Area,57,3)) + ACT_Area = Storage(D2X(ACT_Addr),100) + ACT_len = C2D(Substr(ACT_Area,49,1)) + ACT_code = Substr(ACT_Area,50,ACT_len) + + Return ACT_code diff --git a/endevor/Automated-Test-Facility-Using-Test4Z/README.MD b/endevor/Automated-Test-Facility-Using-Test4Z/README.MD index 51af8a4..85fe338 100644 --- a/endevor/Automated-Test-Facility-Using-Test4Z/README.MD +++ b/endevor/Automated-Test-Facility-Using-Test4Z/README.MD @@ -5,7 +5,14 @@ These samples are provided as is and are not officially supported (see [license] ## Introduction -Items in this folder can be used to introduce and automate testing in Endevor, running the kinds of test supported by Test4Z. +Items in this folder can be used to introduce and automate testing in Endevor, running the kinds of test supported by Test4Z. There are many items in this folder largely to support the many choices available to you and your configuration for testing. + +Your Endevor processor can submit JCL and wait for your batch test to compleete. You have a choice on how the job accounting code is derived for the submmitted job. +- **GETACCTC lookup.rex** + allows you to enter userids and accounting codes for your site. +- **GETACCTC.rex** uses data blocks in lower-memory to obtain the accounting information for an active job or session. + + See the two modes of testing described in [Testing Modes](https://techdocs.broadcom.com/us/en/ca-mainframe-software/devops/test4z/1-0/administrating/define-options-for-unit-and-record-and-replay.html) and [Test4Z techdocs documentation](https://techdocs.broadcom.com/us/en/ca-mainframe-software/devops/test4z/1-0.html) : 1. [Record and Replay](https://techdocs.broadcom.com/us/en/ca-mainframe-software/devops/test4z/1-0/administrating/record-replay-and-verification-processing.html). The .jcl items in the **Quick-Edit-User-Extension-Points** subfolder correspond to the **Record and Replay** examples. diff --git a/endevor/Field-Developed-Programs/Miscellaneous-items/README.md b/endevor/Field-Developed-Programs/Miscellaneous-items/README.md index 4424b2c..a6221ca 100644 --- a/endevor/Field-Developed-Programs/Miscellaneous-items/README.md +++ b/endevor/Field-Developed-Programs/Miscellaneous-items/README.md @@ -1,6 +1,7 @@ # Miscellaneous-items -These are miscellaneous tools collected by Broadcom Services members and used in supporting Endevor. +These samples are provided as is and are not officially supported (see [license](https://github.com/BroadcomMFD/broadcom-product-scripts/blob/main/LICENSE +) for more information). ## ANL#DRIV, ANL#VIEW and BTCHEDIT