Subtype 22 records modifications of generation records (IGRs) via Web Enabler, the ISPF online application (TSO/VDF), or batch utilities.
For example, a subtype 22 record is written following edit, change visibility, mark/
These field descriptions (relative offsets) are also available in:
BETA97.SAMPLIB(§97S022R)
Source information
|
Offset |
Name |
Length |
Format |
Description |
|---|---|---|---|---|
|
76 |
S022UNUSED1 |
13 |
X |
Reserved for future use |
|
89 |
S022USER |
8 |
C |
TSO user ID |
|
97 |
S022PGM |
8 |
C |
Name of caller program (as of V6R1-01) |
|
105 |
S022FORM |
8 |
C |
Form name |
|
113 |
S022EXT |
16 |
C |
Extension name |
|
129 |
S022REPORT |
16 |
C |
Report name |
|
145 |
S022TITLE |
80 |
C |
List/report title |
|
225 |
S022JOBNM |
8 |
C |
Jobname of the job that created the list |
|
233 |
S022JESID |
8 |
C |
JES ID of the job that created the list |
|
241 |
S022LTIME |
4 |
T |
Time the list came into Beta 93 |
|
245 |
S022LDATE |
4 |
D |
Date list came into Beta 93 |
|
249 |
S022JTIME |
4 |
T |
Time the reader recognized the job card of the job that created the list |
|
253 |
S022JDATE |
4 |
D |
Date on which the reader recognized the job card of the job that created the list |
|
257 |
S022PAGES |
4 |
B |
Number of pages of list/report |
|
261 |
S022LUNUSED |
8 |
X |
Reserved for future use |
|
269 |
S022OR2 |
2 |
B |
Offset relocate section (extended), |
|
271 |
S022CR2 |
2 |
B |
Count relocate section (extended) |
|
273 |
S022ETOKEN |
8 |
X |
ETOKEN |
|
281 |
S022LANG |
1 |
C |
Language identifier |
|
282 |
S022RES21 |
32 |
X |
Reserved for future use |
Job Correlator section
|
Offset |
Name |
Length |
Format |
Description |
|---|---|---|---|---|
|
314 |
L022SRCJCSTA |
1 |
C |
Reserved for future use |
|
315 |
L022SRCJCSYS |
32 |
C |
Reserved for future use |
|
347 |
L022SRCJCUSR |
32 |
C |
Reserved for future use |
Relocate section (extended)
Each subtype 22 record contains one or more relocate sections. Field S022CR2 indicates the number of relocate sections. Field S022OR2 indicates the start of the first relocate section in the SMF record.
Each relocate section contains the following three fields (relative offsets):
|
Offset |
Name |
Length |
Format |
Description |
|---|---|---|---|---|
|
0 |
Y022nnnuuTYP |
2 |
B |
Relocate data type (see table below) |
|
2 |
Y022nnnuuLEN |
2 |
B |
Length of data |
|
4 |
Y022nnnuuVAL |
variable |
variable |
Value in one of the following formats: B (binary) Retention periods D (date) Archive expiration date and B97 list date C (character) All others |
Each SMF record contains one relocate section that describes the action. With most actions, there are following relocate section pairs for the old and new value of modified fields.
|
Y022nnnuuTYP |
Y022nnnuuLEN |
Y022nnnuuVAL |
Description |
|---|---|---|---|
|
1 |
2 |
|
Mark/Unmark for archiving or archive expdt extension/reduction request: |
|
|
|
A|UA |
Line command used |
|
|
|
AR |
Archive expiration date extended |
|
|
|
RA |
Archive expiration date reduced |
|
|
|
AM |
Archive expiration date marked for reduce |
|
|
|
AU |
Archive expiration date unmarked for reduce |
|
2 |
2 |
D|UD |
Mark/Unmark for deletion: Line command used |
|
3 |
2 |
R|UR |
Mark/Unmark for reloading: Line command used |
|
4 |
2 |
V|NV |
Mark/Unmark viewable: Line command used |
|
5 |
1 |
E |
Edit IGR: Line command used (always E) |
|
11 |
2 |
onlretpd (old) |
Online retention period: n |
|
12 |
2 |
onlretpd (new) |
|
|
13 |
2 |
indexretpd (old) |
Index online retention period: n |
|
14 |
2 |
indexretpd (new) |
|
|
15 |
2 |
arcretpd (old) |
Archive retention period: n |
|
16 |
2 |
arcretpd (new) |
|
|
17 |
5 |
arcmedium (old) |
Archive medium: TAPE|DISK|CTERA |
|
18 |
5 |
arcmedium (old) |
|
|
19 |
4 |
newarcexpdt (old) |
New archive expiration date: date |
|
20 |
4 |
newarcexpdt (new) |
|
|
21 |
4 |
itemdispmode (old) |
Item display mode: YES|NO |
|
22 |
4 |
itemdispmode (new) |
|
|
23 |
4 |
expdtonl=arc (old) |
ONLEXPDT=ARCEXPDT: YES|NO |
|
24 |
4 |
expdtonl=arc (new) |
|
|
25 |
4 |
b97date (old) |
List date: date |
|
26 |
4 |
b97date (new) |
|
|
27 |
80 |
ltitle (old) |
Title of list/report: ltitle |
|
28 |
80 |
ltitle (new) |
|
|
29 |
8 |
owner (old) |
Owner: name |
|
30 |
8 |
owner (new) |
|
|
31 |
16 |
layout (old) |
Layout: name |
|
32 |
16 |
layout (new) |
|
|
37 |
4 |
arcexpdt (old) |
New archive expiration date request value: date |
|
38 |
4 |
arcexpdt (new) |
|
|
39 |
4 |
status (old) |
Archive expdt modified status flag: YES|NO |
|
40 |
4 |
status (new) |
|
|
41 |
4 |
status (old) |
Archive expdt extend status flag: YES|NO |
|
42 |
4 |
status (new) |
|
|
43 |
4 |
status (old) |
Archive expdt reduce req status flag: YES|NO |
|
44 |
4 |
status (new) |
|
|
45 |
4 |
status (old) |
Archive expdt reduced status flag: YES|NO |
|
46 |
4 |
status (new) |
|
|
51 |
7 |
archive status (old) |
Mark/Unmark for archiving: PENDING|blank |
|
52 |
7 |
archive status (new) |
|
|
53 |
7 |
delete status (old) |
Mark/Unmark for deletion: PENDING|blank |
|
54 |
7 |
delete status (new) |
|
|
55 |
7 |
reload status (old) |
Mark/Unmark for reloading: PENDING|blank |
|
56 |
7 |
reload status (new) |
|
|
57 |
4 |
viewable stat. (old) |
Mark/Unmark viewable: YES|NO |
|
58 |
4 |
viewable stat. (new) |