...
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 Idem Idem , expect 30 cases in table OWDAT, if it contains fewer values, write missing values as 0.
...