Ì 2
main
[dpm.code]
&IF[if]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dpm.code 15 URN L if
active 1 YN L &IF[if]|0
application 4 FREE L NPR.APPL VAL=IF{dpm.code="Z" "MIS";dpm.code#0.}
cms.active.field 20 FREE L &IF[if]CM|2
cms.active.field.val 20 FREE L VAL=IF{@NPR.DPM.cms.active.field;"active"}
cms.comment 50 FREE L &IF[if]CM|3
cms.exclude 1 YN L &IF[if]CM|0
cms.filer.arg1 50 FREE L &IF[if]CF|1
cms.filer.arg2 50 FREE L &IF[if]CF|2
cms.filer.arg3 50 FREE L &IF[if]CF|3
cms.filer.call 1 YN L &IF[if]CF|5
cms.filer.has.condition 1 YN L &IF[if]CF|6
cms.filer.pgm 80 FREE L &IF[if]CF|0
cms.filer.redundant.logic 1 YN L &IF[if]CF|4
cms.main.segment 20 FREE L &IF[if]CM|1
cms.main.segment.val 20 FREE L VAL=IF{@NPR.DPM.cms.main.segment;"main"}
dictionary 1 YN L &IF[if]|3
id 255 FREE L
letters 10 FREE L &IF[if]|2
mass.edit.elig 1 YN L &IF[if]|5
name 32 FREE L &IF[if]|1
Ì € 2
cms.filer.values
[dpm.code, cms.filer.value]
&IF[if]CFV[cmsfv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cms.filer.value 45 FREE L cmsfv
cms.filer.active.field 20 FREE L &IF[if]CFV[cmsfv]|1
cms.filer.main.segment 20 FREE L &IF[if]CFV[cmsfv]|0
Ì € 2
cms.iet
[dpm.code, cms.iet.environment]
&IF[if]CIET[hmvi]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cms.iet.environment 9 FREE L hmvi
cms.iet.code 75 FREE L &IF[if]CIET[hmvi]|2
cms.iet.dpm 15 URN L NPR.DPM &IF[if]CIET[hmvi]|1
cms.iet.type 10 CHOICE L &IF[if]CIET[hmvi]|0
Ì € 2
cms.post.file
[dpm.code, cms.post.file.q]
&IF[if]CPOS[cpos]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cms.post.file.q 2 INT R cpos
cms.post.file.execute 80 FREE L &IF[if]CPOS[cpos]|0
Ì € 2
cms.pre.file
[dpm.code, cms.pre.file.q]
&IF[if]CPRE[cpre]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cms.pre.file.q 2 INT R cpre
cms.pre.file.cond 1 YN L &IF[if]CPRE[cpre]|1
cms.pre.file.execute 80 FREE L &IF[if]CPRE[cpre]|0
|
|
| | |