Permanent Modifications

Modifying CA IDMS Reports › Permanent Modifications

Permanent Modifications

Modify Dictionary Module

To permanently modify an existing module in the data dictionary, use one of the methods shown below:

Method 1

Use the DDDL compiler online in command mode:

Display the module to be modified:

DISPLAY MODULE NAME IS 'JREPORT 003' AS SYNTAX.

Change the module name in the ADD MODULE statement; for example, JREPORT 103.
Use full screen editing to modify the report.
Press ENTER to store the new module in the dictionary.

Method 2

Use the DDDL compiler online in menu mode, as shown in the following series of screens:

                                         CA
       IDD REL nn.n              *** MASTER SELECTION ***                   TOP
  ─►


              DICTIONARY NAME...:DOCUDICT     NODE NAME..:

              USER NAME.........:lhn
              PASSWORD..........:

              USAGE MODE........:X UPDATE   _ RETRIEVAL

              PFKEY SIMULATION..:X OFF      _ ON


 _ ATTR  =  ATTRIBUTE     <PF2>             _ PROC  =  PROCESS        <PF3>
 _ CLAS  =  CLASS         <PF4>             _ PROG  =  PROGRAM        <PF5>
 _ ELEM  =  ELEMENT       <PF6>             _ RECD  =  RECORD         <PF7>
 _ FILE  =  FILE          <PF8>             _ TABL  =  TABLE          <PF9>
 x MODU  =  MODULE        <PF10>            _ USER  =  USER           <PF11>
 _ ENTL  =  USER DEFINED ENTITY LIST        _ SYST  =  SYSTEM
 _ MSGS  =  MESSAGE
 _ QFIL  =  QFILE                           _ OPTI  =  OPTIONS
 _ DISP  =  DISPLAY ALL                     _ HELP  =  HELP           <PF1>


       IDD REL nn.n                *** MODULE ENTITY ***                    MODU
  ─►
                                   DICT=DOCUDICT

   DISPLAY      MODULE NAME.....:jreport 403
 _ MODIFY
 x ADD          VERSION NUMBER..:1      _ HIGHEST   _ NEXT HIGHEST
 _ DELETE                                _ LOWEST    _ NEXT LOWEST

                 LANGUAGE........:
                     TEXT........:


                 DESCRIPTION.....:



 _ SRCE  =  MODULE SOURCE     <PF9>         _ MODX  =  MODULE EXTENSION  <PF11>
 _ MSYS  =  WITHIN SYSTEM
 _ REGN  =  USER REGISTRATION <PF2>         _ PUBL  =  PUBLIC ACCESS     <PF3>
 _ CLAT  =  CLASS/ATTRIBUTES  <PF4>         _ RKEY  =  RELATIONAL KEYS   <PF5>
 _ COMM  =  COMMENTS          <PF6>         _ COML  =  COMMENT KEY LIST  <PF7>
 _ HIST  =  HISTORY           <PF8>         x COPY  =  SAME AS/COPY FROM
 _ XREF  =  CROSS REFERENCE   <PF10>        _ HELP  =  HELP              <PF1>

IDD REL nn.n *** MODULE COPY *** COPY ─► MODULE 'JREPORT 403' VERSION 1 SAME AS MODULE NAME.....: VERSION NUMBER..: _ HIGHEST _ LOWEST LANGUAGE........: COPY FROM MODULE NAME...: jreport 003 VERSION NUMBER..: _ HIGHEST _ LOWEST LANGUAGE........: x SOURCE TEXT _ MODULES _ SYSTEMS _ ATTRIBUTES _ USERS _ ALL COMMENT TYPES _ COMMENTS _ DEFINITION USER DEFINED COMMENT (COMMENT KEY) USER DEFINED NEST (RELATIONAL KEY)


       IDD REL nn.n                *** MODULE ENTITY ***                    MODU
  ─►
                     MODULE 'JREPORT 403' VERSION 1 DISPLAYED

 _ DISPLAY      MODULE NAME.....:JREPORT 403
 x MODIFY
 _ ADD          VERSION NUMBER..:1      _ HIGHEST   _ NEXT HIGHEST
 _ DELETE                                _ LOWEST    _ NEXT LOWEST

                 LANGUAGE........:
                     TEXT........:


                 DESCRIPTION.....:



 x SRCE  =  MODULE SOURCE     <PF9>         _ MODX  =  MODULE EXTENSION  <PF11>
 _ MSYS  =  WITHIN SYSTEM
 _ REGN  =  USER REGISTRATION <PF2>         _ PUBL  =  PUBLIC ACCESS     <PF3>
 _ CLAT  =  CLASS/ATTRIBUTES  <PF4>         _ RKEY  =  RELATIONAL KEYS   <PF5>
 _ COMM  =  COMMENTS          <PF6>         _ COML  =  COMMENT KEY LIST  <PF7>
 _ HIST  =  HISTORY           <PF8>         _ COPY  =  SAME AS/COPY FROM
 _ XREF  =  CROSS REFERENCE   <PF10>        _ HELP  =  HELP              <PF1>

IDD REL nn.n *** MODULE SOURCE *** SRCE ─► PAGE 1 LINE 1 1/22 MODULE 'JREPORT 403' VERSION 1 ---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---- 03$00**** 'J' REPORTS IDMS JOURNAL FILE mm/dd/yy ROUTINE-JRPT003 030 WK-ABRT-FLAG '12345678901' $ FLAG ABNORMALLY ENDED RUN UNITS 030 WK-CNTR 1 $ AUTOMATIC COUNTER 03OUTPUT D 03SORT PROGRAM-NAME TRANSACT-ID DDR-HD 03410001 'REPORT NO. 03' 03410051 DDR-HD 03410106 DATE 03410122 'PAGE' 03410127 PAGE 03420001 'JREPORT 003' 03420055 'PROGRAM I/O STATISTICS' 034200460 '------------ PAGES ------------- ' 0351*010 PROGRAM-NAME HH 'PROGRAM' 0351*020 TRANSACT-ID FM 'ZZZZZ9999' HH 'TRANSACTION ID' 0351*030 WK-ABRT-FLAG 0351*040 READ FM 'ZZZZZZZZZ' HH ' READ' 0351*050 WRITTEN FM 'ZZZZZZZZZ' HH ' WRITTEN' 0351*060 PAGE-REQUESTS FM 'ZZZZZZZZZ' HH 'REQUESTED' 0351*070 ' ' 037010 IF TYPE NE ('ENDJ' 'ABRT') DROP 037015 IF TYPE EQ 'ABRT' 030 037020 MOVE ' ' TO WK-ABRT-FLAG 037025 TAKE 037030 MOVE '** ABORT **' TO WK-ABRT-FLAG 037035 TAKE * * * END OF DATA * * *

Method 3

Copy the report module to cards using DREPORT 051, as follows:

REPORT=051
KEY MOD-NAME-067 'JREPORT 003'

Add, delete, or replace cards as required, using the modified cards as input to the DDDL compiler.

Method 4

Copy the report to a disk file using DREPORT 052, as follows:

REPORT=52
KEY MOD-NAME-067 'JREPORT 003'

Edit the file as necessary, using the edited module as input to the DDDL compiler.

Retrieve Module Using REPORT= or USE Parameters

Once the modified module is stored in the data dictionary, it can be retrieved by specifying its module number on a REPORT= parameter or a USE parameter. A good rule of thumb is to base the name of the modified module on the existing module name; for example, DREPORT xyy, where x is a digit in the range 1 through 9 and yy represents the last two digits of the original module number.