* /* START OF SPECIFICATIONS **** 01000042 *01* PROCESSOR = ASSEMBLER 02000042 **** END OF SPECIFICATIONS ***/ 03000042 */********************************************************************/ 04000042 */* */ 05000042 */* MODULE NAME - IDCCDGR */ 06000042 */* */ 07000042 */* DESCRIPTIVE NAME - 'CREATEG ' COMMAND DESCRIPTOR */ 08000042 */* */ 09000042 */* COPYRIGHT - NONE */ 10000042 */* */ 11000042 */* STATUS - CHANGE LEVEL = 0 */ 12000042 */* */ 13000042 */* FUNCTION - UPON RECOGNITION OF THE 'CREATEG ' VERBNAME */ 14000042 */* (OR AN ALLOWABLE ABBREVIATION), THIS MODULE */ 15000042 */* IS LOADED BY THE IDCAMS READER/INTERPRETER. */ 16000042 */* THE INFORMATION CONTAINED IN THIS MODULE IS USED TO */ 17000042 */* SCAN THE INPUT COMMAND AND PERFORM SYNTACTIC AND */ 18000042 */* SEMANTIC CHECKING ON THE PARAMETERS SPECIFIED, AND */ 19000042 */* TO BUILD THE FUNCTION DATA TABLE (FDT) WHICH IS */ 20000042 */* PASSED TO THE 'CREATEG ' FUNCTION SUPPORT ROUTINE */ 21000042 */* (IDCGR01 ). */ 22000042 */* */ 23000042 */* NOTES - */ 24000042 */* */ 25000042 */* DEPENDENCIES - THE CHARACTER CODES CONTAINED IN THIS TABLE */ 26000042 */* MUST MATCH THOSE OF THE INPUT COMMAND. */ 27000042 */* THE CURRENT CHARACTER CODE IS 'EBCDIC'. */ 28000042 */* */ 29000042 */* RESTRICTIONS - N/A */ 30000042 */* */ 31000042 */* REGISTER CONVENTIONS - N/A */ 32000042 */* */ 33000042 */* PATCH LABEL - N/A */ 34000042 */* */ 35000042 */* MODULE TYPE - TABLE */ 36000042 */* */ 37000042 */* PROCESSOR - ASSEMBLER */ 38000042 */* */ 39000042 */* MODULE SIZE - 2100 DECIMAL BYTES */ 40000042 */* */ 41000042 */* ATTRIBUTES - READ ONLY */ 42000042 */* */ 43000042 */* ENTRY POINT - N/A */ 44000042 */* */ 45000042 */* PURPOSE - N/A */ 46000042 */* */ 47000042 */* LINKAGE - N/A */ 48000042 */* */ 49000042 */* INPUT - N/A */ 50000042 */* */ 51000042 */* OUTPUT - N/A */ 52000042 */* */ 53000042 */* EXIT NORMAL - N/A */ 54000042 */* */ 55000042 */* EXIT ERROR - N/A */ 56000042 */* */ 57000042 */* EXTERNAL REFERENCES - N/A */ 58000042 */* */ 59000042 */* ROUTINES - N/A */ 60000042 */* */ 61000042 */* DATA AREAS - N/A */ 62000042 */* */ 63000042 */* CONTROL BLOCKS - N/A */ 64000042 */* */ 65000042 */* TABLES - N/A */ 66000042 */* */ 67000042 */* MACROS - N/A */ 68000042 */* */ 69000042 */* CHANGE ACTIVITY - NONE */ 70000042 */* */ 71000042 */********************************************************************/ 72000042 PRINT DATA 73000042 IDCCDGR CSECT 74000042 DC C'CDGRQIDCGR01    ' 75000042 DC C'   ' 76000042 DC C' }  GROUPGRP' 77000042 DC C' }lPRIMARYPRI ' 78000042 DC C'}lSECONDARYSEC ' 79000042 DC C'} THRESHOLD THOLDTHRESH' 80000042 DC C' }   DESCRIPTION DESCR' 81000042 DC C' } && OWNER }' 82000042 DC C' ADDRESSADDR }' 83000042 DC C'-RETENTIONPERIOD RETPDò ' 84000042 DC C'RELEASERLSEò NORELEASE ' 85000042 DC C'NRLSE ò  BINDò  ' 86000042 DC C'NOBIND NBINDò  EXCLUSIVEEXCL' 87000042 DC C'ò SHAREDSHRDò ' 88000042 DC C'DASDERASE DERASò  NODASDERASE ND' 89000042 DC C'ERANDERASò READONLY RONLY' 90000042 DC C'ò READWRITERWM' 91000042 DC C'255CONCURRENTUSERSCONCURRENTUSERCONCU' 92000042 DC C'RUSER CUSERM40 RE' 93000042 DC C'SERVEDSPACERESERVEDSPRSVDSP' 94000042 END 95000042