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.
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.
midrange.com
