Skip to content

Get job accounting and other info improved alternative #136

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 5 commits into from
Jun 12, 2025
Merged

Get job accounting and other info improved alternative #136

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
fbe3aed
Get job-related information update
waljo11 Jun 5, 2025
288b487
Improved method for getting Account information
waljo11 Jun 10, 2025
b62c657
Update README.MD
waljo11 Jun 11, 2025
6af15dd
Update README.MD
waljo11 Jun 11, 2025
4843307
Merge branch 'main' into Get-JobAccounting-and-other-info
adam-wolfe Jun 12, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 18 additions & 0 deletions endevor/Automated-Test-Facility-Using-Test4Z/GETACCTC lookup.rex
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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
37 changes: 19 additions & 18 deletions endevor/Automated-Test-Facility-Using-Test4Z/GETACCTC.rex
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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
9 changes: 8 additions & 1 deletion endevor/Automated-Test-Facility-Using-Test4Z/README.MD
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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.
Expand Down
3 changes: 2 additions & 1 deletion endevor/Field-Developed-Programs/Miscellaneous-items/README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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

Expand Down