Example
This example shows the parameters required to produce a Data Dictionary Report based on CLASS attributes identified by the key CMT-ID-086.
The following code:
INPUT 10000 F 10000 DB(D) SS=IDMSNWKA,IDMSNTWK
PATHA2 OOAK-012 CLASS-092 CLASSCMT-086
GW0 ATTR-NAME.18 'SYSTEM '
* 'PROGRAM '
* 'MODULE '
* 'FILE '
* 'RECORD '
* 'ELEMENT '
* 'USER '
* 'ATTRIBUTE '
* 'CLASS '
* 'MESSAGE '
* 'TASK '
* 'QUEUE '
* 'DESTINATION '
* 'LOGICAL-TERMINAL '
* 'PHYSICAL-TERMINAL '
* 'LINE '
* 'PANEL '
* 'MAP '
010 CMT-ID
010 PRINT-40 ' '
.
.
.
017250 MOVE CMT-ID-086 TO CMT-ID
017300 $ CALL MODULE TO RETRIEVE USER-DEFINED COMMENT TYPE
017 CALL US64 ('1' ATTR-NAME.9 'C' CMT-ID PRINT-40)
|
Copyright © 2014 CA.
All rights reserved.
|
|