User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:ztdamt0

Common ZTDAMT0

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.ztdamt0 ---|*NOSEQ
00002  M00S00002.ztdamt0 ---|*WIDTH 95
00003  M00S00003.ztdamt0 ---|*CALLC ZOSTSTA
00004  M00S00004.ztdamt0 ---|*CALLC OSDSTAT
00005  M00S00005.ztdamt0 ---|*CALL ZTDVMT0
00006  M00S00006.ztdamt0 ---|*CALL ZCLVMT0
00007  M00S00007.ztdamt0 ---|
00008  M00S00008.ztdamt0 ---|   VAR
00009  M00S00009.ztdamt0 ---|
00010  M00S00010.ztdamt0 ---|     osv$template_99999: [static] string (2) := '+T';
00011  M00S00011.ztdamt0 ---|
00012  M00S00012.ztdamt0 ---|   CONST
00013  M00S00013.ztdamt0 ---|     osc$template_array_length = 1 +
00014  M00S00014.ztdamt0 ---|       osc$ZTDVMT0_count +
00015  M00S00015.ztdamt0 ---|       osc$ZCLVMT0_count ;
00016  M00S00016.ztdamt0 ---|
00017  M00S00017.ztdamt0 ---|   VAR
00018  M00S00018.ztdamt0 ---|     osv$template_table : [XDCL, READ] record
00019  M00S00019.ztdamt0 ---|       size : 1 .. osc$max_condition,
00020  M00S00020.ztdamt0 ---|       template_array : array[1 .. osc$template_array_length] of record
00021  M00S00021.ztdamt0 ---|         condition_code : 0 .. osc$max_condition,
00022  M00S00022.ztdamt0 ---|         state: ost$status_states,
00023  M00S00023.ztdamt0 ---|         template_ptr : ^string(*),
00024  M00S00024.ztdamt0 ---|       recend,
00025  M00S00025.ztdamt0 ---|     recend :=
00026  M00S00026.ztdamt0 ---|     [osc$template_array_length, [
00027  M00S00027.ztdamt0 ---|*CALL ZTDNMT0
00028  M00S00028.ztdamt0 ---|*CALL ZCLNMT0
00029  M00S00029.ztdamt0 ---|       [99999, osc$warning_status, ^osv$template_99999]]];
cdc/nos2.source/opl.opl871/common/ztdamt0.txt ยท Last modified: (external edit)