Programming and Coding Examples › Printer File DDS Example

Printer File DDS Example

/*T: YDOCF Document file.
/*Z: CRTPRTF FORMSIZE( 88 132) OVRFLW( 80) LPI(8) CPI(15)
/*Z: SCHEDULE(*FILEEND) HOLD(*YES)
*
H* SYSTEM : Widget processing system
H* PROGRAMMER : T. Codd
H* DATE : 7/20/84
H* (C) COPYRIGHT 1987 Universal Sprocket Company
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
M* MAINTENANCE: *NONE
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
A REF(YYFDRFP)
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
A R $FLHD TEXT(‘File headings.’)
A SKIPB(3) SPACEA(2)
A YYCOTX R 1REFFLD($$COTX)
A 42MSGCON(040 WFL4101 UPMTMSG)
A TEXT(‘Document file’)
A UNDERLINE
A ##USVN R 80REFFLD($$USVN)
A ##JBVN R +1REFFLD($$JBVN)
A +1DATE EDTCDE(Y)
A +1TIME EDTWRD(‘0: : ‘)
A 42MSGCON(040 UIS0010 UPMTMSG)
A TEXT(‘Page’)
A +1PAGNBR EDTCDE(Z)
A SPACEA(2)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* File
A 1MSGCON(032 UIS0010 UPMTMSG)
A TEXT(‘File’)
A +1’:’
A ATFLNM 10 +3
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* Library
A 1MSGCON(030 UIS0010 UPMTMSG)
A TEXT(‘Library’)
A +1’:’
A ATFLLB 10 +5
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* Text
A 1MSGCON(032 UIS0010 UPMTMSG)
A TEXT(‘Text’)
A +1’:’
A ATFLTX 50 +3SPACEA(1)

* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* Type
A 1MSGCON(032 UIS0011 UPMTMSG)
A TEXT(‘Type’)
A +1’:’
A 40 +3’*PHY’
A 41 36’*LGL’
A 42 36’*DDSPF’
A 43 36’*PRTF’
A 44 36’*TAPF’
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
A 1MSGCON(032 UIS0012 UPMTMSG)
A TEXT(‘Created’)
A +1’:’
A $$FCDT 6 0 +3EDTWRD(‘ / / 0’)
A $$FCTM 6 0 +1EDTWRD(‘0 : : ‘)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* Column headings
A 1MSGCON(080 UIS0072 UPMTMSG)
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
A R $FDDA TEXT(‘Field details.’)
A SPACEA(1)
A INDTXT(91 ‘DETAIL(*FULL)’)
A 1’|’
A WHFDNM 10 2
A 12’|’
A WHFLDT 1 15
A 17’|’
A $$DCLN 3 1 20EDTCDE(4)
A 25’|’
A WHFDDB 5 0 26EDTCDE(Z)
A 32’|’
A 91 WHFDTX 50 33
A 91 83’|’
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
A R $ENDA TEXT(‘End of data.’)
A SPACEA(1)
A INDTXT(91 ‘DETAIL(*FULL)’)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
A 1MSGCON(070 UIS0055 UPMTMSG)
A TEXT(‘ENDOF REPORT’)
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =