Comments on: Program Described File in RPGIV http://itknowledgeexchange.techtarget.com/itanswers/program-described-file-in-rpgiv/ Fri, 24 May 2013 09:57:03 +0000 hourly 1 By: tomliotta http://itknowledgeexchange.techtarget.com/itanswers/program-described-file-in-rpgiv/#comment-71290 tomliotta Mon, 07 Dec 2009 03:32:44 +0000 #comment-71290 What do you mean by “how a file is used”? A program-described file is used the same way an externally-described file is used. You READ them or WRITE them with the same instructions.

Do you mean that you want to know how a program-described file is declared in a program?

Tom

]]> By: kbarnette http://itknowledgeexchange.techtarget.com/itanswers/program-described-file-in-rpgiv/#comment-49442 kbarnette Wed, 17 May 2006 10:08:37 +0000 #comment-49442 UTM400P is program described.

File Specs

0025.00 FUTM400P IF F 96 DISK

Input Specs

0153.00 *
0154.00 * Record layout for UTM400P
0155.00 *
0156.00 IUTM400P AA 1 C0 2 C0 3 C0
0157.00 I AND 4 C1
0158.00 I 11 22 CY
0159.00 I 31 42 CR
0160.00 I AA
0161.00 I 1 4 0RRNTHS
0162.00 I 5 6 0CALKEYmnth
0163.00 I 7 8 0CALKEYday
0164.00 I 9 10 0CALKEYyear
0165.00 I 14 14 0CALDAY

Calc Specs

0188.00 C READ UTM400P 98
0189.00 C IF (*IN98 = *ON) OR
0190.00 C (CY(1) = *BLANKS) AND (CY(2) = *BLANKS) AND
0191.00 C (CY(3) = *BLANKS)
0192.00 C CALL ‘QCMDEXC’
0193.00 C PARM CMD(2)
0194.00 C PARM 50 WKN155
0195.00 C GOTO ENDPGM
0196.00 C END

0248.00 C RRNTHS CHAIN UTM400P 98

]]>