Previous Topic: ExamplesNext Topic: IDMSRSTC


Sample Output

Protocol Listing

GLOBAL PRTLST IDMSRPTS nn.n ----------- PROTOCOL LISTING ----------- DATE TIME PAGE PRTLST DICTIONARY SYSTEM OF NODE DEFAULT mm/dd/yy 180854 1 PROTOCOL NAME .. BATCH PROTOCOL VERSION 0001 DATE CREATED ... mm/dd/yy LAST UPDATED ... N/A LANGUAGE ....... COBOL MOVE @DMLSEQ TO DML-SEQUENCE MOVE @OCCUR TO RECORD-OCCUR MOVE @NODN TO SSC-NODN MOVE @DBN TO SSC-DBN MOVE @DICTNO TO SSC-DNO MOVE @DICTNA TO SSC-DNA MOVE @LNG TO LRC-LRPXELNG MOVE @LRSIZE TO LRC-MAXVXP MOVE '@LRSTAT' TO LR-STATUS MOVE '@VERB' TO LRVERB MOVE '@NAME' TO LRNAME @(PXELP MOVE @XDE TO @PXE ADD @PXELNG TO LRC-LRPXELNG @)PXELP @(MISCLOOP @MISC @)MISCLOOP CALL 'IDMS' USING SUBSCHEMA-CTRL @CALLIDMS IDBMSCOM (@FUNC1) @SSCTRL @SSNAME @SSLRCTRL @REC @SET @AREA @DATANAME @RECBUF @OCCUR2 IDBMSCOM (@FUNC2) IDBMSCOM (@KEEP) @P1 @P2 @P3 @P4 @(PALOOP @PA1 @PA2 @PA3 @)PALOOP @PERIOD IF ERROR-STATUS EQUAL TO '@STATUS' ...

DMCL, SEGMENT, and DBTABLE Listing

IDMSRPTS nn.n ------------- DMCL LISTING ------------- DATE TIME PAGE DMCLST DICTIONARY SYSTEM OF NODE DEFAULT mm/dd/yy 181203 1 DMCL CVDMCL13 EXTERNAL LOW REL HIGH REL PAGE LOW PAGE CALC HIGH HIGH PAGE BLK/PAGE PAGE NAME BLOCK NR BLOCK NR GROUP NUMBER PAGE NR NUMBER SIZE RESV SEGMENT ................ APPLCAT 0 FILE ............... APPLCAT APPLCAT 1 1000 4276 AREA ........... DDLCAT 1 1000 0 304001 305000 305000 4276 0 FILE ............... APPLCATX APPLCATX 1 500 4276 AREA ........... DDLCATX 1 500 0 306001 306500 306500 4276 0 FILE ............... APPLCATL APPLCATL 1 500 4276 AREA ........... DDLCATLOD 1 500 0 308001 308500 308500 4276 0 SEGMENT ................ APPLNWK 0 FILE ............... APPLDML APPLDML 1 1000 4276 AREA ........... DDLDML 1 1000 0 300001 301000 301000 4276 0 FILE ............... APPLLOD APPLLOD 1 500 4276 AREA ........... DDLDCLOD 1 500 0 302001 302500 302500 4276 0 SEGMENT ................ ASFNWK 0 FILE ............... ASFDML ASFDML 1 1000 4276 AREA ........... DDLDML 1 1000 0 400001 401000 401000 4276 0 FILE ............... ASFLOD ASFLOD 1 500 4276 AREA ........... DDLDCLOD 1 500 0 402001 402500 402500 4276 0 FILE ............... ASFDEFN ASFDEFN 1 500 4276 AREA ........... IDMSR-AREA 1 500 0 404001 404500 404500 4276 0 FILE ............... ASFDATA ASFDATA 1 500 4276 AREA ........... IDMSR-AREA2 1 500 0 406001 406500 406500 4276 0 SEGMENT ................ CATSYS 0 FILE ............... DCCAT DCCAT 1 100 4276 ... IDMSRPTS nn.n ----------- SEGMENT LISTING ------------ DATE TIME PAGE SEGLST DICTIONARY SYSTEM OF NODE DEFAULT mm/dd/yy 181203 1 SEGMENT APPLCAT PAGE GROUP 0 EXTERNAL LOW REL HIGH REL PAGE LOW PAGE CALC HIGH HIGH PAGE BLK/PAGE PAGE NAME BLOCK NR BLOCK NR GROUP NUMBER PAGE NR NUMBER SIZE RESV SEGMENT ................ APPLCAT 0 AREA ............... DDLCAT 0 304001 305000 305000 4276 0 WITHIN FILE .... APPLCAT APPLCAT 1 1000 304001 305000 4276 AREA ............... DDLCATX 0 306001 306500 306500 4276 0 WITHIN FILE .... APPLCATX APPLCATX 1 500 306001 306500 4276 AREA ............... DDLCATLOD 0 308001 308500 308500 4276 0 WITHIN FILE .... APPLCATL APPLCATL 1 500 308001 308500 4276 ... IDMSRPTS nn.n ----------- DBTABLE LISTING ------------ DATE TIME PAGE DBTLST DICTIONARY SYSTEM OF NODE DEFAULT mm/dd/yy 181203 1 DBTABLE CVDBTB13 DBTABLE ......... CVDBTB13 DBTABLE MAPPINGS SUBSCHEMA IDMSCAT? MAPS TO SUBSCHEMA IDMSCAT? USING DBNAME SYSTEM SUBSCHEMA IDMSNWK? MAPS TO SUBSCHEMA IDMSNWK? USING DBNAME SYSTEM SUBSCHEMA IDMSRSSA MAPS TO SUBSCHEMA IDMSRSSA USING DBNAME ASFDICT SUBSCHEMA RC?????? MAPS TO SUBSCHEMA RC?????? USING DBNAME ASFDICT SUBSCHEMA RU?????? MAPS TO SUBSCHEMA RU?????? USING DBNAME ASFDICT SUBSCHEMA CITSALLP MAPS TO SUBSCHEMA CITSALLP USING DBNAME INFODB SUBSCHEMA MTSSINFP MAPS TO SUBSCHEMA MTSSINFP USING DBNAME INFODB DBNAME ...... APPLDICT MATCH ON SUBSCHEMA OPTIONAL SEGMENT APPLCAT SEGMENT APPLNWK SEGMENT SYSMSG DBNAME ...... ASFDICT MATCH ON SUBSCHEMA OPTIONAL SEGMENT ASFNWK SEGMENT SYSMSG DBNAME ...... DIRLDICT MATCH ON SUBSCHEMA OPTIONAL SEGMENT DIRLNWK SEGMENT SYSMSG DBNAME ...... INFODB MATCH ON SUBSCHEMA OPTIONAL SEGMENT INFOTSIS SEGMENT TSIS DBNAME ...... INFODICT MATCH ON SUBSCHEMA OPTIONAL SEGMENT INFONWK DBNAME ...... SYSTEM MATCH ON SUBSCHEMA OPTIONAL SEGMENT CATSYS SEGMENT SYSMSG SEGMENT SYSTEM ...

Schema Record and Set Description Listing

IDMSRPTS nn.n -- SCHEMA RECORD DESCRIPTION LISTING --- DATE TIME PAGE RECDES DICTIONARY APPLDICT OF NODE DEFAULT mm/dd/yy 181426 1 SCHEMA EMPSCHM VERSION 1 RECORD NAME........ COVERAGE RLGTH= 36 RECORD VERSION..... 0001 DLGTH= 16 RECORD ID.......... 0400 KLGTH= 20 RECORD LENGTH...... FIXED DSTRT= 20 LOCATION MODE...... VIA SET EMP-COVERAGE DISPLACEMENT 0000 PAGES WITHIN............. INS-DEMO-REGION OFFSET 5 PGS FOR 45 PGS DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER EMP-COVERAGE MEMBER 1 2 3 COVERAGE-CLAIMS OWNER 4 5 DATA ITEM.......... REDEFINES....... USAGE....... VALUE............................. PICTURE..................... STRT LGTH 02 SELECTION-DATE-0400 DISPLAY 1 6 03 SELECTION-YEAR-0400 DISPLAY 9(2) 1 2 03 SELECTION-MONTH-0400 DISPLAY 9(2) 3 2 03 SELECTION-DAY-0400 DISPLAY 9(2) 5 2 02 TERMINATION-DATE-0400 DISPLAY 7 6 03 TERMINATION-YEAR-0400 DISPLAY 9(2) 7 2 03 TERMINATION-MONTH-0400 DISPLAY 9(2) 9 2 03 TERMINATION-DAY-0400 DISPLAY 9(2) 11 2 02 TYPE-0400 DISPLAY X 13 1 88 MASTER-0400 COND 'M' 13 88 FAMILY-0400 COND 'F' 13 88 DEPENDENT-0400 COND 'D' 13 02 INS-PLAN-CODE-0400 DISPLAY X(3) 14 3 88 GROUP-LIFE-0400 COND '001' 14 88 HMO-0400 COND '002' 14 88 GROUP-HEALTH-0400 COND '003' 14 88 GROUP-DENTAL-0400 COND '004' 14 ***** ***** REC SYNONYM NAME... COVERGE COVERAGE RLGTH= 36 REC SYNONYM VER.... 0001 DLGTH= 16 LANGUAGE(S)........ ASSEMBLER DATA ITEM.......... REDEFINES....... USAGE....... VALUE............................. PICTURE......................... STRT LGTH 02 COVSELDT DISPLAY 1 6 03 COVSELYR DISPLAY 9(2) 1 2 03 COVSELMO DISPLAY 9(2) 3 2 03 COVSELDA DISPLAY 9(2) 5 2 02 COVTRMDT DISPLAY 7 6 03 COVTRMYR DISPLAY 9(2) 7 2 03 COVTRMMO DISPLAY 9(2) 9 2 03 COVTRMDA DISPLAY 9(2) 11 2 02 COVTYPE DISPLAY X 13 1 88 COVMASTR COND 'M' 13 88 COVFAMLY COND 'F' 13 88 COVDPNDT COND 'D' 13 . . . IDMSRPTS nn.n -------- SET DESCRIPTION LISTING ------- DATE TIME PAGE SETDES DICTIONARY APPLDICT OF NODE DEFAULT mm/dd/yy 181426 1 SCHEMA EMPSCHM VERSION 1 SET...... CALC MODE CHAIN ORDER SORTED OWNER.... SR1 0001 NEXT PRIOR MEMBER... SYSTEM 0007 NEXT PRIOR MANDATORY AUTO MEMBER... DEPARTMENT 0410 NEXT PRIOR MANDATORY AUTO NAT DUP NOT ALLOW IN AREA ORG-DEMO-REGION CALC KEY DEPT-ID-0410 ASC MEMBER... EMPLOYEE 0415 NEXT PRIOR MANDATORY AUTO NAT DUP NOT ALLOW IN AREA EMP-DEMO-REGION CALC KEY EMP-ID-0415 ASC MEMBER... INSURANCE-PLAN 0435 NEXT PRIOR MANDATORY AUTO NAT DUP NOT ALLOW IN AREA INS-DEMO-REGION CALC KEY INS-PLAN-CODE-0435 ASC MEMBER... JOB 0440 NEXT PRIOR MANDATORY AUTO NAT DUP NOT ALLOW IN AREA ORG-DEMO-REGION CALC KEY JOB-ID-0440 ASC MEMBER... OFFICE 0450 NEXT PRIOR MANDATORY AUTO NAT DUP NOT ALLOW IN AREA ORG-DEMO-REGION CALC KEY OFFICE-CODE-0450 ASC MEMBER... SKILL 0455 NEXT PRIOR MANDATORY AUTO NAT DUP NOT ALLOW IN AREA ORG-DEMO-REGION CALC KEY SKILL-ID-0455 ASC SET...... COVERAGE-CLAIMS MODE CHAIN ORDER LAST OWNER.... COVERAGE 0400 NEXT PRIOR IN AREA INS-DEMO-REGION MEMBER... HOSPITAL-CLAIM 0430 NEXT PRIOR MANDATORY AUTO IN AREA INS-DEMO-REGION MEMBER... NON-HOSP-CLAIM 0445 NEXT PRIOR MANDATORY AUTO IN AREA INS-DEMO-REGION MEMBER... DENTAL-CLAIM 0405 NEXT PRIOR MANDATORY AUTO IN AREA INS-DEMO-REGION SET...... DEPT-EMPLOYEE MODE CHAIN ORDER SORTED OWNER.... DEPARTMENT 0410 NEXT PRIOR IN AREA ORG-DEMO-REGION MEMBER... EMPLOYEE 0415 NEXT PRIOR OWNER OPTIONAL AUTO NAT DUP LAST IN AREA EMP-DEMO-REGION SORT KEY EMP-LAST-NAME-0415 ASC EMP-FIRST-NAME-0415 ASC SET...... EMP-COVERAGE MODE CHAIN ORDER FIRST OWNER.... EMPLOYEE 0415 NEXT PRIOR IN AREA EMP-DEMO-REGION MEMBER... COVERAGE 0400 NEXT PRIOR OWNER MANDATORY AUTO IN AREA INS-DEMO-REGION SET...... EMP-EMPOSITION MODE CHAIN ORDER FIRST OWNER.... EMPLOYEE 0415 NEXT PRIOR IN AREA EMP-DEMO-REGION MEMBER... EMPOSITION 0420 NEXT PRIOR OWNER MANDATORY AUTO . . .

Subschema Area and Data Directory Listing

IDMSRPTS nn.n -- SUBSCHEMA DATA DIRECTORY LISTING -- DATE TIME PAGE DATDIR DICTIONARY APPLDICT OF NODE DEFAULT mm/dd/yy 181529 1 SUBSCHEMA EMPHTL1 OF SCHEMA EMPSCHM VERSION 100 RECORD: COVERAGE ID: 0400 VER: 100 TYPE: I LEN: 16 DATA NAME LEVEL STRT LENGTH TYPE PICTURE SELECTION-DATE-0400 02 1 6 GROUP SELECTION-YEAR-0400 03 1 2 DISPLAY 9(2) SELECTION-MONTH-0400 03 3 2 DISPLAY 9(2) SELECTION-DAY-0400 03 5 2 DISPLAY 9(2) TERMINATION-DATE-0400 02 7 6 GROUP TERMINATION-YEAR-0400 03 7 2 DISPLAY 9(2) TERMINATION-MONTH-0400 03 9 2 DISPLAY 9(2) TERMINATION-DAY-0400 03 11 2 DISPLAY 9(2) TYPE-0400 02 13 1 A/N X MASTER-0400 88 COND VALUE 'M' FAMILY-0400 88 COND VALUE 'F' DEPENDENT-0400 88 COND VALUE 'D' INS-PLAN-CODE-0400 02 14 3 A/N X(3) GROUP-LIFE-0400 88 COND VALUE '001' HMO-0400 88 COND VALUE '002' GROUP-HEALTH-0400 88 COND VALUE '003' GROUP-DENTAL-0400 88 COND VALUE '004' . . . IDMSRPTS nn.n -- SUBSCHEMA DATA DIRECTORY LISTING -- DATE TIME PAGE DATDIR DICTIONARY APPLDICT OF NODE DEFAULT mm/dd/yy 181529 2 SUBSCHEMA EMPHTL1 OF SCHEMA EMPSCHM VERSION 100 RECORD: COVERGE ID: 0400 VER: 100 TYPE: I LEN: 16 SYNONYM OF: COVERAGE LANGUAGE(S): ASSEMBLER DATA NAME LEVEL STRT LENGTH TYPE PICTURE COVSELDT 02 1 6 GROUP COVSELYR 03 1 2 DISPLAY 9(2) COVSELMO 03 3 2 DISPLAY 9(2) COVSELDA 03 5 2 DISPLAY 9(2) COVTRMDT 02 7 6 GROUP COVTRMYR 03 7 2 DISPLAY 9(2) COVTRMMO 03 9 2 DISPLAY 9(2) COVTRMDA 03 11 2 DISPLAY 9(2) COVTYPE 02 13 1 A/N X COVMASTR 88 COND VALUE 'M' COVFAMLY 88 COND VALUE 'F' COVDPNDT 88 COND VALUE 'D' COVPLNCD 02 14 3 A/N X(3) GROUP-LIFE 88 COND VALUE '001' HMO 88 COND VALUE '002' GROUP-HEALTH 88 COND VALUE '003' GROUP-DENTAL 88 COND VALUE '004' . . .

Note: For more information about CA reports produced by IDMSRPTS, see the CA IDMS Reports Guide.