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