* /* START OF SPECIFICATIONS **** 00900042 *01* PROCESSOR = ASSEMBLER 01800042 **** END OF SPECIFICATIONS ***/ 02700042 */********************************************************************/ 03600042 */* */ 04500042 */* MODULE NAME - IDCCDMG */ 05400042 */* */ 06300042 */* DESCRIPTIVE NAME - 'MODIFYG ' COMMAND DESCRIPTOR */ 07200042 */* */ 08100042 */* COPYRIGHT - NONE */ 09000042 */* */ 09900042 */* STATUS - CHANGE LEVEL = 0 */ 10800042 */* */ 11700042 */* FUNCTION - UPON RECOGNITION OF THE 'MODIFYG ' VERBNAME */ 12600042 */* (OR AN ALLOWABLE ABBREVIATION), THIS MODULE */ 13500042 */* IS LOADED BY THE IDCAMS READER/INTERPRETER. */ 14400042 */* THE INFORMATION CONTAINED IN THIS MODULE IS USED TO */ 15300042 */* SCAN THE INPUT COMMAND AND PERFORM SYNTACTIC AND */ 16200042 */* SEMANTIC CHECKING ON THE PARAMETERS SPECIFIED, AND */ 17100042 */* TO BUILD THE FUNCTION DATA TABLE (FDT) WHICH IS */ 18000042 */* PASSED TO THE 'MODIFYG ' FUNCTION SUPPORT ROUTINE */ 18900042 */* (IDCMG01 ). */ 19800042 */* */ 20700042 */* NOTES - */ 21600042 */* */ 22500042 */* DEPENDENCIES - THE CHARACTER CODES CONTAINED IN THIS TABLE */ 23400042 */* MUST MATCH THOSE OF THE INPUT COMMAND. */ 24300042 */* THE CURRENT CHARACTER CODE IS 'EBCDIC'. */ 25200042 */* */ 26100042 */* RESTRICTIONS - N/A */ 27000042 */* */ 27900042 */* REGISTER CONVENTIONS - N/A */ 28800042 */* */ 29700042 */* PATCH LABEL - N/A */ 30600042 */* */ 31500042 */* MODULE TYPE - TABLE */ 32400042 */* */ 33300042 */* PROCESSOR - ASSEMBLER */ 34200042 */* */ 35100042 */* MODULE SIZE - 2545 DECIMAL BYTES */ 36000042 */* */ 36900042 */* ATTRIBUTES - READ ONLY */ 37800042 */* */ 38700042 */* ENTRY POINT - N/A */ 39600042 */* */ 40500042 */* PURPOSE - N/A */ 41400042 */* */ 42300042 */* LINKAGE - N/A */ 43200042 */* */ 44100042 */* INPUT - N/A */ 45000042 */* */ 45900042 */* OUTPUT - N/A */ 46800042 */* */ 47700042 */* EXIT NORMAL - N/A */ 48600042 */* */ 49500042 */* EXIT ERROR - N/A */ 50400042 */* */ 51300042 */* EXTERNAL REFERENCES - N/A */ 52200042 */* */ 53100042 */* ROUTINES - N/A */ 54000042 */* */ 54900042 */* DATA AREAS - N/A */ 55800042 */* */ 56700042 */* CONTROL BLOCKS - N/A */ 57600042 */* */ 58500042 */* TABLES - N/A */ 59400042 */* */ 60300042 */* MACROS - N/A */ 61200042 */* */ 62100042 */* CHANGE ACTIVITY - NONE */ 63000042 */* */ 63900042 */********************************************************************/ 64800042 PRINT DATA 65700042 IDCCDMG CSECT 66600042 DC C'CDMG0IDCMG01  ' 67500042 DC C'   ' 68400042 DC C' }  GROUPGRP' 69300042 DC C' }lPRIMARYPRI ' 70200042 DC C'}lSECONDARYSEC ' 71100042 DC C'} THRESHOLD THOLDTHRESH' 72000042 DC C' }   DESCRIPTION DESCR' 72900042 DC C' } && OWNER }' 73800042 DC C' ADDRESSADDR }' 74700042 DC C'-RETENTIONPERIOD RETPD ' 75600042 DC C'NULLIFYNULL K K K K K ' 76500042 DC C'ò THRESHOLD THOLDTHRESH' 77400042 DC C'ò  DESCRIPTION DESCR' 78300042 DC C'ò  % OWNERò ' 79200042 DC C'>ADDRESSADDRò RETENT' 80100042 DC C'IONPERIOD RETPDò RELE' 81000042 DC C'ASERLSEò NORELEASE NRLSE ò' 81900042 DC C' BINDò NOBIND NBIND' 82800042 DC C'ò EXCLUSIVEEXCLò ' 83700042 DC C'SHAREDSHRDò  DASDERASE DE' 84600042 DC C'RASò  NODASDERASE NDERANDERAS' 85500042 DC C'ò READONLY RONLYò ' 86400042 DC C'READWRITERW }CO' 87300042 DC C'NCURRENTUSERSCONCURRENTUSERCONCURUSER CUSER' 88200042 DC C' }@ RESERVEDSPACERESERVED' 89100042 DC C'SPRSVDSP' 90000042 END 90900042