Skip to content

Commit da6d518

Browse files
authored
Merge branch 'main' into dependabot/npm_and_yarn/output-management/web-viewer/favorites/multi-36f97647e5
2 parents 3a33f10 + 8039ac3 commit da6d518

File tree

4 files changed

+47
-20
lines changed

4 files changed

+47
-20
lines changed
Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,18 @@
1+
/* REXX */
2+
Arg whatuser
3+
JobAccountingCode. = '12340'
4+
JobAccountingCode.user#01 = '127398730'
5+
JobAccountingCode.user#02 = '127398730'
6+
JobAccountingCode.user#03 = '106321234'
7+
JobAccountingCode.user#04 = '106321234'
8+
JobAccountingCode.user#05 = '111212340'
9+
JobAccountingCode.user#06 = '124312340'
10+
JobAccountingCode.user#07 = '121412340'
11+
JobAccountingCode.user#08 = '118412340'
12+
JobAccountingCode.user#09 = '124312340'
13+
JobAccountingCode.user#10 = '114412340'
14+
JobAccountingCode.user#11 = '123212340'
15+
JobAccountingCode.user#12 = '111412340'
16+
JobAccountingCode.user#13 = '106341234'
17+
JobAccountingCode.user#14 = '301123400'
18+
Return JobAccountingCode.whatuser
Lines changed: 19 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -1,18 +1,19 @@
1-
/* REXX */
2-
Arg whatuser
3-
JobAccountingCode. = '12340'
4-
JobAccountingCode.user#01 = '127398730'
5-
JobAccountingCode.user#02 = '127398730'
6-
JobAccountingCode.user#03 = '106321234'
7-
JobAccountingCode.user#04 = '106321234'
8-
JobAccountingCode.user#05 = '111212340'
9-
JobAccountingCode.user#06 = '124312340'
10-
JobAccountingCode.user#07 = '121412340'
11-
JobAccountingCode.user#08 = '118412340'
12-
JobAccountingCode.user#09 = '124312340'
13-
JobAccountingCode.user#10 = '114412340'
14-
JobAccountingCode.user#11 = '123212340'
15-
JobAccountingCode.user#12 = '111412340'
16-
JobAccountingCode.user#13 = '106341234'
17-
JobAccountingCode.user#14 = '301123400'
18-
Return JobAccountingCode.whatuser
1+
/* REXX */
2+
/* Find and return the Accounting code value for current user/job */
3+
start = 540 /* it starts here */
4+
start = D2X(start)
5+
TCB_Addr = C2D(Storage(start,4)) /* Current TCB Addr */
6+
TCB_Area = Storage(D2X(TCB_Addr),200)
7+
/*TIOT_Addr = Substr(TCB_Area,13,4)
8+
TIOT_jobname = Storage(C2X(TIOT_Addr),8) */
9+
10+
JSCB_Addr = Substr(TCB_Area,181,4)
11+
JSCB_Area = Storage(C2X(JSCB_Addr),280)
12+
JCT_Addr = Substr(JSCB_Area,261,4)
13+
JCT_Area = Storage(C2X(JCT_Addr),100)
14+
ACT_Addr = C2D(Substr(JCT_Area,57,3))
15+
ACT_Area = Storage(D2X(ACT_Addr),100)
16+
ACT_len = C2D(Substr(ACT_Area,49,1))
17+
ACT_code = Substr(ACT_Area,50,ACT_len)
18+
19+
Return ACT_code

endevor/Automated-Test-Facility-Using-Test4Z/README.MD

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,14 @@ These samples are provided as is and are not officially supported (see [license]
55

66
## Introduction
77

8-
Items in this folder can be used to introduce and automate testing in Endevor, running the kinds of test supported by Test4Z.
8+
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.
9+
10+
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.
11+
- **GETACCTC lookup.rex**
12+
allows you to enter userids and accounting codes for your site.
13+
- **GETACCTC.rex** uses data blocks in lower-memory to obtain the accounting information for an active job or session.
14+
15+
916
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) :
1017

1118
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.

endevor/Field-Developed-Programs/Miscellaneous-items/README.md

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
# Miscellaneous-items
22

3-
These are miscellaneous tools collected by Broadcom Services members and used in supporting Endevor.
3+
These samples are provided as is and are not officially supported (see [license](https://github.com/BroadcomMFD/broadcom-product-scripts/blob/main/LICENSE
4+
) for more information).
45

56
## ANL#DRIV, ANL#VIEW and BTCHEDIT
67

0 commit comments

Comments
 (0)