Ì 2
cms.filer.values (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 (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 (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 (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
|
|
| |