...
Write as a string of one position (A1) followed by 2 spaces (X2),
the same applies for Line for
Line 2:
Write as an integer value in a cell of 18 positions (I18) followed by two spaces (X2),
Write as a string of one position
Write as an integer value in a cell of 4 positions (I4)
Write as integer value in a cell of 4 positions followed by a Carriage return Linefeed ( CrLf ) as indicated by "/|" after the format.
Line 3:
Write element 1 in object as integer in a cell of 18 positions followed by two spaces (X2).
If object OWPOL is not present in the solution there are two options:
The data slot of OWPOL contains a @DBDEFAULT, e.g.: :0 (IT IS FOR OBJECTS ONLY ALLOWED TO USE ")" as DBDEFAULT)
In that case, all OWPOL formats are presenting a value of 0.
If in a format OWPOL(NT|I18|X2|1) OWPOL exists and NT does neither exist in OWPOL nor in the level(s) above, the @DBDEFAULT value of NT is printed if available or the message:
"NT has no DBDEFAULT"
Idem
Line Idem Line 4:
Write in E format using 11 decimals in a cell of 18 length (E18.11), followed by two spaces (X2).
Idem for , and . is fourth value from |M4| so write CrLf.
Line 5:
write 6 subsequent values of OWPOL(KQPC) with an E18.11 format followed by two spaces (X2), each time when the line counter |M4| reaches 4, a CrLf is written. If OWPOL contains 4 instead of the indicated 6 values, the 5th and 6th values are given the value zero.
Idem
Idem , expect 30 cases in table OWDAT, if it contains fewer values, write missing values as 0.
After the 30 values, write a CrLf as indicated by "/|"
...