Common ZTDAMT0

0 Modifications
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.ztdamt0 +++|*NOSEQ
00002  M01S00002.ztdamt0 +++|*WIDTH 95
00003  M01S00003.ztdamt0 +++|*CALLC ZOSTSTA
00004  M01S00004.ztdamt0 +++|*CALLC OSDSTAT
00005  M01S00005.ztdamt0 +++|*CALL ZTDVMT0
00006  M01S00006.ztdamt0 +++|*CALL ZCLVMT0
00007  M01S00007.ztdamt0 +++|
00008  M01S00008.ztdamt0 +++|   VAR
00009  M01S00009.ztdamt0 +++|
00010  M01S00010.ztdamt0 +++|     osv$template_99999: [static] string (2) := '+T';
00011  M01S00011.ztdamt0 +++|
00012  M01S00012.ztdamt0 +++|   CONST
00013  M01S00013.ztdamt0 +++|     osc$template_array_length = 1 +
00014  M01S00014.ztdamt0 +++|       osc$ZTDVMT0_count +
00015  M01S00015.ztdamt0 +++|       osc$ZCLVMT0_count ;
00016  M01S00016.ztdamt0 +++|
00017  M01S00017.ztdamt0 +++|   VAR
00018  M01S00018.ztdamt0 +++|     osv$template_table : [XDCL, READ] record
00019  M01S00019.ztdamt0 +++|       size : 1 .. osc$max_condition,
00020  M01S00020.ztdamt0 +++|       template_array : array[1 .. osc$template_array_length] of record
00021  M01S00021.ztdamt0 +++|         condition_code : 0 .. osc$max_condition,
00022  M01S00022.ztdamt0 +++|         state: ost$status_states,
00023  M01S00023.ztdamt0 +++|         template_ptr : ^string(*),
00024  M01S00024.ztdamt0 +++|       recend,
00025  M01S00025.ztdamt0 +++|     recend :=
00026  M01S00026.ztdamt0 +++|     [osc$template_array_length, [
00027  M01S00027.ztdamt0 +++|*CALL ZTDNMT0
00028  M01S00028.ztdamt0 +++|*CALL ZCLNMT0
00029  M01S00029.ztdamt0 +++|       [99999, osc$warning_status, ^osv$template_99999]]];