# ZVM: Formation jour 2 ## CP LINK permet d'attacher un disque dans l'environnement de l'ustilisateur connecté. Exemple de procédure : ``` /* */ 'CPREL A' 'CP LINK MAINT 2cc 2cc MW' 'ACC 2cc E' 'filel * * e' 'DET 2cc' 'CPACCESS maint cf1 a' ``` ## Création USER **Note**: Par défaut les utilitaires DISKMAP, DIRMAP et DIRECTXA sont situés sur le disque des utilitaires de validation croisée (PMAINT 551). Vous devez accéder à ce disque pour exécuter l'utilitaire DIRECTXA. Il faut disposer des privilèges CP des classes A, B ou C pour mettre à jour le répertoire des utilisateurs du système. Récupérer USER DIRECT pour diskmap/dirmap) faire un `filelist * * a` ``` MAINT FILELIST A0 V 169 Trunc=169 Size=8 Line=1 Col=1 Alt=0 Cmd Filename Filetype Fm Format Lrecl Records Blocks Date Time USER DIRECT A1 F 80 4204 83 3/30/18 14:21:16 USER$1 DIRECT A1 F 80 4183 82 3/30/18 14:01:28 USER$ DIRECT A1 F 80 4169 82 3/29/18 10:51:35 USERBACK DIRECT A1 F 80 4168 82 3/28/18 12:24:38 ZVMFF DIRECT A1 F 80 4161 82 3/23/18 13:14:46 IPWIZARD $FILE$ A1 V 80 133 2 3/19/18 13:40:50 USER DISKMAP A1 F 100 235 6 3/19/18 11:19:12 RPWLIST DATA A1 F 80 34 1 12/27/01 10:33:01 ``` Faire un `DISKMAP` ou un `DIRMAP` sur la ligne USER DIRECT Passer en xedit sur le fichier créé par la commande (MDISKMAP pour DIRMAP ou DISKMAP pour DISKMAP) ``` x USER MDISKMAP 00235 NOUGAT 0191 MR 5260 5264 005 00236 5265 10016 4752 G ``` ``` x USER DISKMAP 00213 NOUGAT 191 3390 05260 05264 00005 ``` récuper sur c le fichier **USER DIRECT** ``` filel USER DIRECT * ``` recopier le fichier USER DIRECT vers A ``` copy / = = A DIRECT C1 F 80 4204 83 3/30/18 14:21:16 ``` ``` * USER DIRECT A1 F 80 4219 83 3/26/19 12:01:58 USER DIRECT C1 F 80 4204 83 3/30/18 14:21:16 ``` Editer le fichier USER DIRECT A * dupliquer le module USER * modifier user mdp disk ``` 04220 USER BEZIERS BEZIERS 128M 2G G 04221 ACCOUNT SYSTEMS 04222 MACH ESA 04223 IPL CMS 04224 CONSOLE 009 3215 04225 SPOOL 00C 2540 READER * 04226 SPOOL 00D 2540 PUNCH A 04227 SPOOL 00E 1403 A 04228 LINK MAINT 0190 0190 RR * CMS system disk 04229 LINK MAINT 019E 019E RR * Product code disk 04230 LINK RACMAINT 29E 29E RR 04231 LINK RACMAINT 305 505 RR 04232 LINK RACMAINT 192 192 RR 04233 LINK RACFVM 305 305 RR 04234 MDISK 191 3390 05265 001 VMCOM1 MR READ WRITE MULTIPLE ``` compiler ``` DIRECTXA USER DIRECT A1 ``` Se reconnecter avec le nouvel user ``` q v da DASD 0190 3390 M01RES R/O 214 CYL ON DASD 0010 SUBCHANNEL = 0004 DASD 0191 3390 VMCOM1 R/W 1 CYL ON DASD 0013 SUBCHANNEL = 000A DASD 0192 3390 640RL1 R/O 25 CYL ON DASD 0014 SUBCHANNEL = 0008 DASD 019E 3390 M01RES R/O 500 CYL ON DASD 0010 SUBCHANNEL = 0005 DASD 029E 3390 640RL1 R/O 10 CYL ON DASD 0014 SUBCHANNEL = 0006 DASD 0305 3390 M01RES R/O 136 CYL ON DASD 0010 SUBCHANNEL = 0009 DASD 0505 3390 640RL1 R/O 41 CYL ON DASD 0014 SUBCHANNEL = 0007 Ready; T=0.01/0.01 12:55:33 ``` formater le disque A ``` format 191 a DMSFOR603R FORMAT will erase all files on disk A(191). Do you wish to continue? Enter 1 (YES) or 0 (NO). ```