|
midrange.com
Hi Al,
When I run the example you gave, it returns CPF3357 which is :Output
queue
NOPRINT in library *LIBL not found. But I Had to give it enough bytesavail
for it to return the message... Not sure if that helps...
Regards,
Rick DuVall
Systems Manager
Dealer's Auto Auction of Okc
405 947-2886 Ext:143
rick@xxxxxxxxxx
Here's the code for my current attempt at this. It's using a copy of another
data structure (that worked in the sample code writing to a file).
* CONTROL STRUCTURE
DQIMC0100 DS
D QIMSL 1 4B 0 INZ(100)
D QIMSF 5 12 INZ('IMGC0100')
D QIMATION 13 16B 0 INZ(0)
D QIMAH 17 48
D QIMFL 49 52B 0 INZ(108)
D QIMFSF 53 60 INZ('IMGF0100')
D QIMVERSE 61 64B 0 INZ(0)
D QIMCR 65 68B 0 INZ(0)
D QIMESIZE 69 72B 0 INZ(1)
D QIMRETCH 73 76B 0 INZ(0)
D QIMHJ 77 80B 0 INZ(0)
D QIMVJ 81 84B 0 INZ(0)
D QIMKC 85 88B 0 INZ(1)
D QIMKQ 89 92B 0 INZ(1)
D QIMANCEL 93 96B 0 INZ(0)
D QIMSL00 97 100B 0 INZ(0)
* INPUT FORMAT IMGO0100
DQIMI0100 DS
D QIMSL01 1 4B 0 INZ(101)
D QIMSF00 5 12 INZ('IMGI0100')
D QIMICO 13 22
D QIMICOL 23 32
D QIMDSF 33 36B 0 INZ(1)
D QIMPI 37 40B 0 INZ(0)
D QIMRU 41 44B 0 INZ(0)
D QIMHRES 45 48B 0 INZ(0)
D QIMVRES 49 52B 0 INZ(0)
D QIMOT 53 56B 0 INZ(0)
D QIMONO 57 60B 0 INZ(68)
D QIMONL 61 64B 0 INZ(33)
D QIMRSV1 65 68B 0 INZ(X'00000000')
D QIMON 69 101
DQIMO0300 DS
D QIMSL06 1 4B 0 INZ(132)
D QIMSF05 5 12 INZ('IMGO0300')
D QIMICO04 13 22
D QIMICOL04 23 32
D QIMDSF04 33 36B 0 inz(0)
D QIMPI04 37 40B 0 inz(0)
D QIMRU04 41 44B 0 inz(0)
D QIMHRES04 45 48B 0 inz(0)
D QIMVRES04 49 52B 0 inz(0)
D QIMSU01 53 56B 0 inz(0)
D QIMHSIZ01 57 64P 5 inz(0)
D QIMVSIZ01 65 72P 5 inz(0)
D QIMCT01 73 76B 0 inz(0)
D QIMCQ01 77 80B 0 inz(0)
D QIMBS01 81 84B 0 inz(0)
D QIMPS01 85 88B 0 INZ(26)
D QIMUPSU01 89 92B 0 inz(0)
D QIMHUPS01 93 100P 5 inz(0)
D QIMVUPS01 101 108P 5 inz(0)
D QIMPO01 109 112B 0 inz(0)
D QIMLB01 113 116B 0 inz(0)
D QIMRB01 117 120B 0 inz(0)
D QIMTB01 121 124B 0 inz(0)
D QIMBB01 125 128B 0 inz(0)
D QIMSP 129 132B 0 INZ(2048)
* OUTPUT FORMAT QIMIO0200
DQIMO0200 DS
D QIMSL05 1 4B 0 INZ(200)
D QIMSF04 5 12 INZ('IMGO0200')
D QIMICO03 13 22 inz('*DEV')
D QIMICOL03 23 32
D QIMDSF03 33 36B 0 Inz(22)
D QIMPI03 37 40B 0 Inz(0)
D QIMRU03 41 44B 0 Inz(0)
D QIMHRES03 45 48B 0 inz(0)
D QIMVRES03 49 52B 0 inz(0)
D QIMSU00 53 56B 0 inz(0)
D QIMHSIZ00 57 64P 5 inz(0)
D QIMVSIZ00 65 72P 5 inz(0)
D QIMCT00 73 76B 0 inz(0)
D QIMCQ00 77 80B 0 inz(0)
D QIMBS00 81 84B 0 inz(0)
D QIMPS00 85 88B 0 INZ(0)
D QIMUPSU00 89 92B 0 inz(0)
D QIMHUPS00 93 100P 5 inz(0)
D QIMVUPS00 101 108P 5 inz(0)
D QIMPO00 109 112B 0 inz(0)
D QIMLB00 113 116B 0 inz(0)
D QIMRB00 117 120B 0 inz(0)
D QIMTB00 121 124B 0 inz(0)
D QIMBB00 125 128B 0 inz(0)
D QIMOD 129 138 inz('*JOB')
D QIMON01 139 148 inz('NOPRINT
D QIMOL 149 158 inz('*LIBL')
D QIMPN 159 168 inz('QSYSPRT')
D QIMPL 169 178 inz('QSYS')
D QIMUD 179 188
D QIMOPIES 189 192B 0 inz(1)
D QIMSAVE 193 196B 0 inz(1)
D QIMRSF 197 200B 0 inz(1)
DQIMF0100 DS
D QIMAH00 1 32
D QIMSN00 33 42
D QIMJN 43 52
D QIMJUN 53 62
D QIMJNBR 63 68
D QIMSNBR00 69 72B 0
D QIMIJI00 73 88
D QIMISI00 89 104
D QIMODSL 105 108B 0
D Ext_APIError DS
D BytesProvided 9B 0 Inz( 272 )
D BytesAvail 9B 0 Inz( *Zero )
D MsgID 7 Inz( *Blanks )
D Reserved 1 Inz( *Blanks )
D MsgDta 256 Inz( *Blanks )
DQMAINI01 S 4 INZ(X'00000000')
* - Input Streamfile
D In_Path S 33
* - Output Streamfile
D Out_Path S 33
D Image PR extproc('QimgCvtImg')
D ControlS LIKE(QIMC0100)
D InputImageS LIKE(QIMI0100)
D MainStgS LIKE(QMAINI01)
D OutputStGS LIKE(QIMO0200)
D MainStgOS LIKE(QIMO0300)
D Feedback LIKE(QIMF0100)
C*
C *ENTRY PLIST
C PARM In_Path
C PARM Out_Path
C MOVE *ALLx'00' QIMAH
C MOVE *ALLx'00' QIMICO
C MOVE *ALLx'00' QIMICOL
C MOVE *ALLx'00' QIMICOL03
C MOVE *ALLx'00' QIMICOL04
* Set Path input / output Streamfile
C eval QIMON = In_Path
C eval QIMONL = %len(%TRIMR(In_Path))
C eval QIMSL01 = QIMONO + QIMONL
C CALLP Image( QIMC0100
C : QIMI0100
C : QMAINI01
C : QIMO0200
C : QIMO0300
C : QIMF0100
C : Ext_APIError)
c eval *INLR = *ON
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.
