|
midrange.com
S o u r c e L i s t i n g
1 H ExtBinInt(*Yes)
2
3 H Option(*SrcStmt:*NoDebugIO)
000400 H Indent('.')
000500
000600 H AlwNull(*UsrCtl)
000700
000800 H DftActGrp(*No) ActGrp('QILE') BndDir('OPPGM')
000900 H UsrPrf(*User)
001000
*--------------------------------------------------------------------*
* Compiler Options in Effect:
*
*--------------------------------------------------------------------*
* Text 'description' . . . . . . . : Bug Test
*
* Generation severity level . . . : 10
*
* Default activation group . . . . : *NO
*
* Compiler options . . . . . . . . : *XREF *GEN
*
* *NOSECLVL *SHOWCPY
*
* *EXPDDS *EXT
*
* *NOSHOWSKP *SRCSTMT
*
* *NODEBUGIO *NOEVENTF
*
* Optimization level . . . . . . . : *NONE
*
* Source listing indentation . . . : '.'
*
* Type conversion options . . . . : *NONE
*
* Sort sequence . . . . . . . . . : *HEX
*
* Language identifier . . . . . . : *JOBRUN
*
* User profile . . . . . . . . . . : *USER
*
* Authority . . . . . . . . . . . : *LIBCRTAUT
*
* Truncate numeric . . . . . . . . : *YES
*
* Fix numeric . . . . . . . . . . : *NONE
*
* Allow null values . . . . . . . : *USRCTL
*
* Binding directory from Command . : *NONE
*
* Binding directory from Source . : OPPGM
*
* Activation group . . . . . . . . : QILE
*
* Enable performance collection . : *PEP
*
* Profiling data . . . . . . . . . : *NOCOL
*
*--------------------------------------------------------------------*
001100 D MaxTypes C 3
001200 D ListTypes S N Dim(MaxTypes) Inz
001300
001400 D PrintValues PR
001500
001600 D MaxGrids C 25
001700 D GridType S 5A Dim(MaxGrids) Inz
001800
001900 D x S 10I 0 Inz
002000
002100 C Eval *inlr = *on
002200
002300 P PrintValues B
002400 D PrintValues PI
002500
002600 D TtlValue S 10I 0 Dim(MaxTypes) Inz
======> aaaaaaaa
*RNF3320 20 a 002600 The keyword parameter is not defined; keyword is
ignore
002700 D WrkGrids S 5A Dim(MaxGrids) Inz
======> aaaaaaaa
*RNF3320 20 a 002700 The keyword parameter is not defined; keyword is
ignore
002800
002900 C For x = 1 to MaxTypes
003000 C Endfor
003100
003200 C If x < MaxGrids
003300 C Endif
003400
003500 C Return
003600
003700 P E
* * * * * E N D O F S O U R C E * * * * *
A d d i t i o n a l D i a g n o s t i c M e s s a g e s
Msg id Sv Statement Message text
* * * * * E N D O F A D D I T I O N A L D I A G N O S T I C M E S
S A G E S * * * * *
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
