F00365 has DAY of Week (Mon, Tue, Wed, Thu, Fri, Sat, Sun)

[Eric Lehti]

Want to store the DAY of WEEK (Monday, Tuesday, Wednesday, etc. ) in the F00365 calendar file? a simple modifification to P00365 with a call to X98DAY to populate ONPID with either the 3-character day name or the full day name, then clrpfm F00365, then run a P00365 version to regenerate. Modified lines marked with EL03.

CSR MOVE ##PROG ONPID
EL03 C*-----------------------------------------------------
EL03 C*
EL03 C* Determine Day of Week.
EL03 C*
EL03 CSR MOVE '*MDY ' #SIFMT 7
EL03 CSR MOVE ' ' #SNDAY 1
EL03 CSR MOVE *BLANK #SIDAY 29
EL03 CSR MOVEL'A' #SIDAY 29
EL03 CSR CALL 'X98DAY' 81
EL03 C* ---- --------
EL03 CSR PARM #SIDAT 6
EL03 CSR PARM #SIFMT 7
EL03 CSR PARM #SIDAY 29
EL03 CSR PARM #SNDAY 1
EL03 CSR PARM #SOFMT 16
EL03 CSR MOVEL#SIDAY $3BYTE 3
EL03 CSR MOVE *BLANKS ONPID
EL03 CSR MOVEL$3BYTE ONPID
C*
C* Move to output - Work Station ID
C*
CSR MOVE ##JOBN ONJOBN