MFE zDP: Konfigurace: Doporučená maloobchodní cena se zvýšila po obnovení objemu zDP Business Continuance

Po obnovení zDP BCV se zvýší SRP a nedojde k uvolnění přiděleného místa na cílových svazcích.

Během procesu UNLINK se proces FREE nedokončí. Cílové svazky mají stále přidělení přiřazená k sadě SNAPSET.

Zkontrolujte, zda je parametr FREE zadán v části UNLINK. Pokud parametr FREE nebyl zahrnut do UNLINK, lze spustit jiný LINK a UNLINK s FREE. Tato akce uvolní přidělené místo na cílových svazcích. 

Chcete-li zkontrolovat přidělení svazků, použijte sestavu QUERY ALLOC. Příklad QUERY ALLOC je uveden níže. Report by měl být spuštěn dvakrát. Nejprve zkontrolujte přidělené místo na všech svazcích včetně cílových. Druhé spuštění se provede za parametrem FREE, aby se ověřilo, že se uvolnilo dříve přidělené místo na cílových svazcích. Pokud se původní SNAPSET odroloval, lze pro LINK a UNLINK použít novější SNAPSET s parametrem FREE. Definice zDP se nesmí změnit; obě sady SNAPSET byly vytvořeny pomocí stejné definice VDG (Versioned Data Group).

Ukázkový jazyk JCL (Job Control Language) pro UNLINK s parametrem FREE:

//ZDPDEF   EXEC PGM=EIPINIT,REGION=0M    
//STEPLIB  DD DISP=SHR,DSN=ZDP.LINKLIB   
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=121   
//ZDPRPT   DD SYSOUT=*,DCB=BLKSIZE=121   
//ZDPERR   DD SYSOUT=*,DCB=BLKSIZE=121   
//SCF$NNNN DD DUMMY            -- need to update nnnn to SCF command prefix 
//ZDPSNAP  DD SYSOUT=*                   
//EMCQCAPI DD SYSOUT=*                   
//ESNAZDPL DD SYSOUT=*                   
//SYSIN DD *                
GLOBAL MAX_RC(04)           
*                           
UNLINK TGT SNAPSHOT_NAME,FREE(YES)
*                           
/*                          
//           

Úloha QUERY ALLOC vygeneruje sestavu přidělení zařízení, která poskytuje podrobnosti o přidělení zařízení.

Ukázkový jazyk pro řízení úloh pro QUERY ALLOC:

//STEPNAME EXEC PGM=ESFGPMBT 
//STEPLIB  DD DISP=SHR,DSN=hlq.LINKLIB      -- need to update hlq per your MFE linklib
//SCF$nnnn DD DUMMY                         -- need to update nnnn to SCF command prefix                         
//DBUGPMBT DD SYSOUT=*                                        
//DBUGPMCM DD SYSOUT=*                                        
//DBUGPMSD DD SYSOUT=*                                        
//GPMPRINT DD SYSOUT=*                                        
//GPMINPUT DD *                                               
QUERY ALLOC LOCAL(UNIT(CCUU))     -- CCUU is the array gatekeeper 

Ukázka výstupu QUERY ALLOC:

EMCU500I QUERY ALLOC LOCAL(UNIT(9B10)) DEV(020-022)                                
EMCU060I Thin Allocations on 0001976-00382                      API Ver: 8.40      
EMCU014I Device#      Alloc      Used    Shared   Persist   SRP Name                 
EMCU015I 00000020     30020     30020     30017      N      SRP_0x102             
EMCU015I 00000021        17        17         0      N      SRP_0x102              
EMCU015I 00000022     30020         3     30017      N      SRP_0x102