Re: BLOBS in RPG IV

Nick,

example (working!)
used for uploading jpeg pictures <2MB by websphere java program

DSPFFD
=================================================================
Data Field Buffer Buffer Field Column Field Type Length Length Position Usage Heading PICTID CHAR 10 10 1 Both PICTID Allows the null value Coded Character Set Identifier . . . . . : 37 PICTTP CHAR 30 30 11 Both PICTTP Allows the null value Coded Character Set Identifier . . . . . : 37 PICTBT BLOB 1048576 40 41 Both PICTBT Allocated Length . . . . . . . . . . . . : 0 Allows the null value Coded Character Set Identifier . . . . . : 65535 ============================================================
RUNQRY

Bottom Field Text Len Dec PICTID 10 PICTTP 30 PICTBT ***** 1L Bottom =====runqry======================================================
Display Report Report width . . . . . : 84 Position to line . . . . . Shift to column . . . . . . Line ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8.... PICTID PICTTP PICTBT 000001 0000000001 image/pjpeg *POINTER 000002 0000000002 image/pjpeg *POINTER 000003 0000000003 image/pjpeg *POINTER 000004 0000000004 image/pjpeg *POINTER 000005 0000000005 image/pjpeg *POINTER 000006 0000000006 image/pjpeg *POINTER 000007 0000000007 image/pjpeg *POINTER 000008 0000000008 image/pjpeg *POINTER 000009 0000000009 image/pjpeg *POINTER 000010 0000000010 image/pjpeg *POINTER 000011 0000000011 image/pjpeg *POINTER 000012 0000000012 image/pjpeg *POINTER 000013 0000000013 image/pjpeg *POINTER 000014 0000000014 image/pjpeg *POINTER 000015 0000000015 image/pjpeg *POINTER 000016 0000000016 image/pjpeg *POINTER 000017 0000000017 image/pjpeg *POINTER 000018 0000000018 image/pjpeg *POINTER 000019 0000000019 image/pjpeg *POINTER More... F3=Exit F12=Cancel F19=Left F20=Right F21=Split F22=Width 80 =======================================================


Citeren Nick Arndt <nick.arndt@xxxxxxxxx>:

Does any one have any examples of using BLOBS in RPG?

Thanks in advance.

Nick
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.