1. There are 1627 fields input in MXG code with &PK format, from
some 66 different records, many from other products and vendors
than IBM, but here are a few examples from the five "numbered"
IBM records.
74 R745CLVL
80 TopSecret TSTIME
90 Subtype 1,2 OLDTIME/NEWTIME
102 DB2 Timestamp FORMAT CL 10 for QW0022BT
110 SMFPSRVR, SMFPSBKN, A17OPENT, A17CLOSE
A lot of times/dates in other products use 1 and 2 byte PK formats
for YY and digits of HH MM SS.
2. SMF 21 record field SMF21TUS is MXG variable TAPCUSER and this
documentation is in member ADOC21. Note I simply carried it as a three-byte
character field with
$HEX6 format, as that can readily be further decoded as described here:
TAPCUSER CHAR 3 $HEX6.0 TAPE UNIT*SERIAL OF*CREATION
Tape unit serial on which this tape was created. This physical serial
number is actually stamped on the back of the tape drive. For 3420s,
or tape reels, TAPCUSER contained the serial number of the tape drive.
For 3480/3490/3590 cartridges, the second thru fifth nybble are the
serial number, and the last nybble contains the sequence number of
the connection of the drive to its control unit:
3480 TAPCUSER Serial ConnSeqNr Serial Number (In UCB)
096909 9609 9 000000029690
096930 9693 0 000000029693
It identifies the original physical tape unit on which the tape volume
now being dismounted was created. For tapes being created, this is
read from the UCB for the drive; but for previously created tapes,
this serial number is read from the HDR2 field of the tape label.
It may also be useful for you to realize that a labeled tape volume
contains this serial number of the creation drive. You can always
dump the tape header fields and see where a tape was created.
APAR OW17491 (Feb, 1996) reports that DFSMS/MVS 1.3.0 caused this
field to be corrupted, and a PTF was to be tested.
To extract the SERIAL/SEQNR from TAPCUSER in TYPE21 you can use:
SERIAL=SUBSTR(PUT(TAPCUSER,$HEX6.),2,4);
SEQNR=SUBSTR(PUT(TAPCUSER,$HEX6.),6,1);
and to extract the UCB's serial number, you can use
SERIAL=SUBSTR(PUT(UCBSER,$HEX12.),9,4);
and serial will be a 4-byte character variable.
3. SMF21BRN and SMF21BW are both four-byte binary values,
but your point that the SMF documentation is totally unclear
for content format for MANY fields is one of the reasons
that I really can never write MXG code to decode without
actual recordsd. Most of the IBM DSECTs list CHARACTER
for lots of numeric values, independent of the PK PD etc
possibile formats of data. It makes for job security.
Merrilly yours,
Barry
Herbert W. “Barry” Merrill, PhD
President-Programmer
MXG Softtware
Merrill Consultants
10717 Cromwell Drive
Dallas, TX 75229
[email protected]
http://www.mxg.com - FAQ has Most Answers
[email protected] – invoices/PO/Payment
[email protected] – technical
tel: 214 351 1966 - expect slow reply, use email
fax: 214 350 3694 – prefer email, still works
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
