Ü WRITE (Write to a File Record format)
Example
0105.00 C*_______________CLEAR SUBFILE_____________________
0106.00 C*_________________________________________________
0107.00 C CLRSFL BEGSR
0108.00 C EVAL RRN=0
0109.00 C SETON 50
0110.00 C WRITE EXPD_CTL
0111.00 C SETOFF 50
0112.00 C ENDSR
0126.00 C*_______________FILL SUBFILE__________________
0127.00 C*_________________________________________________
0128.00 C*
0129.00 C FILSFL BEGSR
0130.00 C SETON 52
0131.00 C SETOFF 45
0132.00 C EVAL FIRSTRRN=RRN+1
0133.00 C DO SFLPAG
0134.00 C READ(N) REC1
0135.00 C IF %EOF(MASTER)
0136.00 C EVAL *IN45=%EOF(MASTER)
0137.00 C LEAVESR
0138.00 C ENDIF
0139.00 C EVAL S_ORG=ORG
0140.00 C EVAL S_ACC=ACC
0141.00 C EVAL S_CCY=CCY
0142.00 C ADD 1 RRN
0143.00 C WRITE EXPD_SFL
0144.00 C ENDDO
0145.00 C SETOFF 52
0146.00 C ENDSR
0148.00 C*
0149.00 C DSPSFL BEGSR
0150.00 C SETON 5152
0151.00 C WRITE HEADER
0152.00 C WRITE FOOTER
0153.00 C EXFMT EXPD_CTL
0154.00 C ENDSR
0020.43 C WRITEPF BEGSR
0020.45 C READC ACC_SFL 95
0020.46 C DOW NOT %EOF() AND @ERROR='N' AND *IN95=*OFF
0020.47 C EVAL ORG=A_ORG
0020.48 C EVAL ACC=A_ACC
0020.49 C EVAL CCY=A_CCY
0020.50 C EVAL ACCMNGR=A_MNGR
0020.51 C EVAL COUNTRY=A_CNTRY
0020.52 C EVAL PARTY=S_PNUM
0020.54 C WRITE REC5
0020.58 C SETOFF 66
0020.59 C UPDATE ACC_SFL
0020.60 C READC ACC_SFL 95
0020.61 C ENDDO
0020.63 C ENDSR