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