DSECT 00001000
UIPARMS DS 0D 00002000
SPACE 1 00003000
* COMMON FIELDS IN ALL PARAMETER LISTS 00004000
UUSERID DS CL8 USERID 00005000
UCURPASS DS CL8 CURRENT LOGON PASSWORD 00006000
UOP DS CL8 OPERATION 00007000
UCMMONSZ EQU *-UUSERID LENGTH OF COMMON FIELDS 00008000
SPACE 1 00009000
* VARIABLE FIELDS IN PARAMETER LISTS 00010000
UVARIABL EQU * 00011000
UNEWPASS DS CL8 FOR 'LOGPASS' 00012000
SPACE 1 00013000
ORG UVARIABL 00014000
USTORAGE DS CL8 FOR 'STORAGE' (NORMAL OR MAX. IN K) 00015000
SPACE 1 00016000
ORG UVARIABL 00017000
UPRIV DS CL8 FOR UP TO EIGHT PRIVILEGE CLASSES 00018000
SPACE 1 00019000
ORG UVARIABL 00020000
UPRIOR DS CL2 FOR PRIORITY 00021000
DS CL6 RESERVED 00022000
SPACE 1 00023000
ORG UVARIABL 00024000
UEDITCH DS CL4 FOR 'EDITCHAR' (LE,LD,CD,ES) 00025000
DS CL4 RESERVED 00026000
SPACE 1 00027000
ORG UVARIABL 00028000
UIPL DS CL8 FOR 'IPL' 00029000
SPACE 1 00030000
ORG UVARIABL 00031000
UACCOUNT DS CL8 FOR 'ACCOUNT' (DISTRIBUT'N INFO ONLY) 00032000
SPACE 1 00033000
ORG UVARIABL 00034000
UDISTRIB DS CL8 FOR DISTRIBUTION INFORMATION 00035000
SPACE 1 00036000
ORG UVARIABL 00037000
UMDISKAD DS CL3 FOR 'MDISK' ADDRESS 00038000
UMDISKMD DS CL3 FOR 'MDISK' LINK MODE @VMI0024 00039000
UMDISKRP DS CL8 FOR 'MDISK' READ PASSWORD 00040000
UMDISKWP DS CL8 FOR 'MDISK' WRITE PASSWORD 00041000
UMDISKMP DS CL8 FOR 'MDISK' MULTIPLE PASSWORD 00042000
DS CL2 RESERVED @VMI0024 00043000
SPACE 1 00044000
ORG UVARIABL 00045000
UOPTIONS DS CL80 FOR UP TO 9 OPTIONS @VMI0026 00046000
DS XL8 FENCE OF FF'S 00047000
SPACE 1 00048000
* CONTROL BLOCK SIZE IN DOUBLE WORDS 00049000
UIPARMSZ EQU (*-UIPARMS+7)/8 00050000
*------------------------------------------------------------------ 00051000