Printer File - Urgent!!! -- RPG400-L

[ Converted text/html to text/plain ]

Dear all,

Hi!

I want to print a Report in RPG III with number of columns = 250.

How do I achieve this?

I have a printer file with the following definition:

 FILE         > PRT256R1
 DEV                *JOB
 DEVTYPE        *SCS
 PAGESIZE
              > 110
              > 255
              > *ROWCOL
 LPI          > 6
 CPI          > 16.7
 OVRFLW       > *SAME
 LVLCHK         *NO

When I execute my test program, the spool file that is generated contains 255
characters. But when I try to print this spool file, I receive the following
message:

-------------------------------------------------------------------------------------------------------------------------
 Message ID . . . . . . :   CPA3389
 Date sent  . . . . . . :   11/04/01      Time sent  . . . . . . :   13:09:24

 Message . . . . :   Page size of file PRT256R1 not supported for device
PRT02.
    (C H T)

 Cause . . . . . :   Writer PRT02 found file PRT256R1 number 8 job
   501160/ADMIN/CBSI01 on output queue PRT02 in QUSRSYS and determined that
the
   page size of file PRT256R1 is not supported for device PRT02.
 Recovery  . . . :   Enter C to cancel the writer.
     Enter H to hold file PRT256R1 on the output queue and produce the next
   file.
     Enter T to process the file.  If T is entered, the results may not be
what
   is expected because the file will be printed using the page width and
   attributes of file QPSPLPRT in library QSYS, and each print line will be

More...
-------------------------------------------------------------------------------------------------------------------------
Device Description for PRT02 is as below
-------------------------------------------------------------------------------------------------------------------------

 DEVD         > PRT02
 AFP            *NO
 PORT           2
 SWTSET         1
 ONLINE         *YES
 FONT
                011
                *NONE
 FORMFEED       *CONT
 SEPDRAWER      *FILE
 SEPPGM         *NONE

 PRTERRMSG      *INQ
 MSGQ           *CTLD

 IMGCFG         *NONE
  ... more
-------------------------------------------------------------------------------------------------------------------------
Please advise.

Thanks in advance.

Regards,

Hrishikesh


Regards,

Hrishikesh Kotwal

>From: SCarter@rsrcorp.com
>Reply-To: rpg400-l@midrange.com
>To: rpg400-l@midrange.com
>Subject: Re: INFDS
>Date: Thu, 1 Nov 2001 10:44:45 -0600
>
>
>A little long but this is what Code/400 creates for all the different
>applications of INFDS
>
>
> D* file feed back
> F*MYFILE IF E DISK INFDS(test1)
> D* File information feedback DS for file feedback
> D test1 DS
> D INF_FILE *FILE
>* File name
> D INF_OPEN_IND 9 9N
>* File open?
> D INF_EOF_IND 10 10N
>* File at eof?
> D INF_STATUS *STATUS
>* Status code
> D INF_OPCODE *OPCODE
>* Last opcode
> D INF_ROUTINE *ROUTINE
>* RPG Routine
> D INF_LIST_NUM 30 37
>* Listing line
> D INF_SPCL_STAT 38 42S 0
>* SPECIAL status
> D INF_RECORD *RECORD
>* Record name
> D INF_MSGID 46 52
>* Error MSGID
> D INF_SCREEN *SIZE
>* Screen size
> D INF_NLS_IN *INP
>* NLS Input?
> D INF_NLS_OUT *OUT
>* NLS Output?
> D INF_NLS_MODE *MODE
>* NLS Mode?
>
> D* I/O Feedback
> F*MYFILE IF E DISK INFDS(test2)
> D* File information feedback DS for input/output feedback
> D test2 DS
> D
>* 241-242 not used
> D INF_WRITE_CNT 243 246I 0
>* Write count
> D INF_READ_CNT 247 250I 0
>* Read count
> D INF_WRTRD_CNT 251 254I 0
>* Write/read count
> D INF_OTHER_CNT 255 258I 0
>* Other I/O count
> D INF_OPERATION 260 260
>* Cuurent operation
> D INF_IO_RCD_FMT 261 270
>* Rcd format name
> D INF_DEV_CLASS 271 272
>* Device class
> D INF_IO_PGM_DEV 273 282
>* Pgm device name
> D INF_IO_RCD_LEN 283 286I 0
>* Rcd len of I/O
>
> D* prtf device feedback
> F*MYFILE O F 132 PRINTER INFDS(test3)
> D* File information feedback DS for PRTF device feedback
> D test3 DS
> D INF_CUR_LINE 367 368I 0
>* Current line num
> D INF_CUR_PAGE 369 372I 0
>* Current page cnt
> D INF_PRT_MAJOR 401 402
>* Major ret code
> D INF_PRT_MINOR 403 404
>* Minor ret code
>
> D* db device feedback
> F*MYFILE IF E DISK INFDS(test4)
> D* File information feedback DS for DB device feedback
> D test4 DS
> D INF_FDBK_SIZE 367 370I 0
>* Size of DB fdbk
> D INF_JOIN_BITS 371 374I 0
>* JFILE bits
> D INF_LOCK_RCDS 377 378I 0
>* Nbr locked rcds
> D INF_POS_BITS 385 385
>* File pos bits
> D INF_DLT_BITS 384 384
>* Rcd deleted bits
> D INF_NUM_KEYS 387 388I 0
>* Num keys (bin)
> D INF_KEY_LEN 393 394I 0
>* Key length
> D INF_MBR_NUM 395 396I 0
>* Member number
> D INF_DB_RRN 397 400I 0
>* Relative-rcd-num
> D INF_KEY 401 2400
>* Key value
>
> D* dspf attributes feedback
> F*MYFILE CF E WORKSTN INFDS(test5)
> D* File information feedback DS for DSPF attributes feedback
> D test5 DS
> D INF_PGM_DEV 241 250
>* Program device
> D INF_DEV_DSC 251 260
>* Dev description
> D INF_USER_ID 261 270
>* User ID
> D INF_DEV_CLASS 271 271
>* Device class
> D INF_DEV_TYPE 272 277
>* Device type
> D INF_REQ_DEV 278 278
>* Requester?
> D INF_ACQ_STAT 279 279
>* Acquire status
> D INF_INV_STAT 280 280
>* Invite status
> D INF_DATA_AVAIL 281 281
>* Data available
> D INF_NUM_ROWS 282 283I 0
>* Number of rows
> D INF_NUM_COLS 284 285I 0
>* Number of cols
> D INF_BLINK 286 286
>* Allow blink?
> D INF_LINE_STAT 287 287
>* Online/offline?
> D INF_DSP_LOC 288 288
>* Display location
> D INF_DSP_TYPE 289 289
>* Display type
> D INF_KBD_TYPE 290 290
>* Keyboard type
> D INF_CTL_INFO 342 342
>* Controller info
> D INF_COLOR_DSP 343 343
>* Color capable?
> D INF_GRID_DSP 344 344
>* Grid line dsp?
> * The following fields apply to ISDN.
> D INF_ISDN_LEN 385 386I 0
>* Rmt number len
> D INF_ISDN_TYPE 387 388
>* Rmt number type
> D INF_ISDN_PLAN 389 390
>* Rmt number plan
> D INF_ISDN_NUM 391 430
>* Rmt number
> D INF_ISDN_SLEN 435 436I 0
>* Rmt sub-addr len
> D INF_ISDN_STYPE 437 438
>* Rmt sub-addr type
> D INF_ISDN_SNUM 439 478
>* Rmt sub-address
> D INF_ISDN_CON 480 480
>* Connection
> D INF_ISDN_RLEN 481 482I 0
>* Rmt address len
> D INF_ISDN_RNUM 483 514
>* Rmt address
> D INF_ISDN_ELEN 519 520
>* Extension len
> D INF_ISDN_ETYPE 521 521
>* Extension type
> D INF_ISDN_ENUM 522 561
>* Extension num
> D INF_ISDN_XTYPE 566 566
>* X.25 call type
>
>
> D* open feedback
> F*MYFILE O F 132 PRINTER INFDS(test6)
> D* File information feedback DS for open feedback
> D test6 DS
> D INF_ODP_TYPE 81 82
>* ODP Type
> D INF_FILE_NAME 83 92
>* File name
> D INF_LIBRARY 93 102
>* Library name
> D INF_SPOOL_FILE 103 112
>* Spool file name
> D INF_SPOOL_LIB 113 122
>* Spool file lib
> D INF_SPOOL_NUM 123 124I 0
>* Spool file num
> D INF_RCD_LEN 125 126I 0
>* Max record len
> D INF_KEY_LEN 127 128I 0
>* Max key len
> D INF_MEMBER 129 138
>* Member name
> D INF_TYPE 147 148I 0
>* File type
> D INF_ROWS 152 153I 0
>* Num PRT/ DSP rows
> D INF_COLUMNS 154 155I 0
>* Num PRT/ DSP cols
> D INF_NUM_RCDS 156 159I 0
>* Num of records
> D INF_ACC_TYPE 160 161
>* Access type
> D INF_DUP_KEY 162 162
>* Duplicate key?
> D INF_SRC_FILE 163 163
>* Source file?
> D INF_VOL_OFF 184 185I 0
>* Vol label offset
> D INF_BLK_RCDS 186 187I 0
>* Max rcds in blk
> D INF_OVERFLOW 188 189I 0
>* Overflow line
> D INF_BLK_INCR 190 191I 0
>* Blk increment
> D INF_FLAGS1 196 196
>* Misc flags
> D INF_REQUESTER 197 206
>* Requester name
> D INF_OPEN_COUNT 207 208I 0
>* Open count
> D INF_BASED_MBRS 211 212I 0
>* Num based mbrs
> D INF_FLAGS2 213 213
>* Misc flags
> D INF_OPEN_ID 214 215
>* Open identifier
> D INF_RCDFMT_LEN 216 217I 0
>* Max rcd fmt len
> D INF_CCSID 218 219I 0
>* Database CCSID
> D INF_FLAGS3 220 220
>* Misc flags
> D INF_NUM_DEVS 227 228I 0
>* Num devs defined
>
> F*MYFILE CF E WORKSTN INFDS(test7)
> D* File information feedback DS for DSPF device feedback
> D test7 DS
> D INF_DSP_FLAG1 367 368
>* Display flags
> D INF_DSP_AID 369 369
>* AID byte
> D INF_CURSOR 370 371
>* Cursor location
> D INF_DATA_LEN 372 375I 0
>* Actual data len
> D INF_SF_RRN 376 377I 0
>* Subfile rrn
> D INF_MIN_RRN 378 379I 0
>* Subfile min rrn
> D INF_NUM_RCDS 380 381I 0
>* Subfile num rcds
> D INF_ACT_CURS 382 383
>* Cursor location
> D INF_DSP_MAJOR 401 402
>* Major ret code
> D INF_DSP_MINOR 403 404
>* Minor ret code
>
> D* ICF Device Feedback
> F*MYFILE CF E WORKSTN INFDS(test8)
> D* File information feedback DS for ICF device feedback
> D test8 DS
> D INF_ICF_AID 369 369
>* AID byte
> D INF_ICF_LEN 372 375I 0
>* Actual data len
> D INF_ICF_MAJOR 401 402
>* Major ret code
> D INF_ICF_MINOR 403 404
>* Minor ret code
> D INF_SNA_SENSE 405 412
>* SNA sense rc
> D INF_SAFE_IND 413 413
>* Safe indicator
> D INF_RQSWRT 415 415
>* Request write
> D INF_RMT_FMT 416 425
>* Remote rcd fmt
> D INF_ICF_MODE 430 437
>* Mode name
>
> D* ICF Attributes Feedback
> F*MYFILE CF E WORKSTN INFDS(test9)
> D* File information feedback DS for ICF attributes feedback
> D test9 DS
> D INF_PGM_DEV 241 250
>* Program device
> D INF_DEV_DSC 251 260
>* Dev description
> D INF_USER_ID 261 270
>* User ID
> D INF_DEV_CLASS 271 271
>* Device class
> D INF_DEV_TYPE 272 272
>* Device type
> D INF_REQ_DEV 278 278
>* Requester?
> D INF_ACQ_STAT 279 279
>* Acquire status
> D INF_INV_STAT 280 280
>* Invite status
> D INF_DATA_AVAIL 281 281
>* Data available
> D INF_SES_STAT 291 291
>* Session status
> D INF_SYNC_LVL 292 292
>* Synch level
> D INF_CONV_TYPE 293 293
>* Conversation typ
> D INF_RMT_LOC 294 301
>* Remote location
> D INF_LCL_LU 302 309
>* Local LU name
> D INF_LCL_NETID 310 317
>* Local net ID
> D INF_RMT_LU 318 325
>* Remote LU
> D INF_RMT_NETID 326 333
>* Remote net ID
> D INF_APPC_MODE 334 341
>* APPC Mode
> D INF_LU6_STATE 345 345
>* LU6 conv state
> D INF_LU6_COR 346 353
>* LU6 conv cor'r
> * The following fields apply to ISDN.
> D INF_ISDN_LEN 385 386I 0
>* Rmt number len
> D INF_ISDN_TYPE 387 388
>* Rmt number type
> D INF_ISDN_PLAN 389 390
>* Rmt number plan
> D INF_ISDN_NUM 391 430
>* Rmt number
> D INF_ISDN_SLEN 435 436I 0
>* sub-addr len
> D INF_ISDN_STYPE 437 438
>* sub-addr type
> D INF_ISDN_SNUM 439 478
>* Rmt sub-address
> D INF_ISDN_CON 480 480
>* Connection
> D INF_ISDN_RLEN 481 482I 0
>* Rmt address len
> D INF_ISDN_RNUM 483 514
>* Rmt address
> D INF_ISDN_ELEN 519 520
>* Extension len
> D INF_ISDN_ETYPE 521 521
>* Extension type
> D INF_ISDN_ENUM 522 561
>* Extension num
> D INF_ISDN_XTYPE 566 566
>* X.25 call type
> * The following information is available only when program was
>started
> * as result of a received program start request. (P_ stands for
>protected)
> D INF_TRAN_PGM 567 630
>* Trans pgm name
> D INF_P_LUWIDLN 631 631
>* LUWID fld len
> D INF_P_LUNAMELN 632 632
>* LU-NAME len
> D INF_P_LUNAME 633 649
>* LU-NAME
> D INF_P_LUWIDIN 650 655
>* LUWID instance
> D INF_P_LUWIDSEQ 656 657I 0
>* LUWID seq num
> * The following information is available only when a protected
>conversation
> * is started on a remote system. (U_ stands for unprotected)
> D INF_U_LUWIDLN 658 658
>* LUWID fld len
> D INF_U_LUNAMELN 659 659
>* LU-NAME len
> D INF_U_LUNAME 660 676
>* LU-NAME
> D INF_U_LUWIDIN 677 682
>* LUWID instance
> D INF_U_LUWIDSEQ 683 684I 0
>* LUWID seq num
>
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>To post a message email: RPG400-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
>or email: RPG400-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.
>

------------------------------------------------------------------------------
Get your FREE download of MSN Explorer at http://explorer.msn.com[1]

===References:===
  1. http://go.msn.com/bql/hmtag_itl_EN.asp