|
Thanks Dave, and Gene. Worked great. Duane Christen -----Original Message----- From: Dave McKenzie [mailto:davemck@xxxxxxxxxxxxx] Sent: Tuesday, June 14, 2005 4:21 PM To: MI Programming on the AS400 / iSeries Subject: Re: [MI400] print ILE built-in functions, V5R3-specific - CORRECTION Also, 5001 in the last line should be 4001 for V5R2. The first time I did it, I restored the V5R2 QWXCRTMD on a V5R3 system (NOT to QSYS!) and ran the Rexx pgm against it. Of course that would create a V5R3 save file. D'oh! The pgm starts at position x4001 in a V5R2 save file. --Dave Dave McKenzie wrote: > Looks like for V5R2 the 22A0 was 2190, and the 3980 was 37B0. > > --Dave > > Christen, Duane J. wrote: >> Gene; >> >> I hate to ask, but would you know the values for V5R2? >> >> Duane Christen >> >> -----Original Message----- >> From: Gene_Gaunt@xxxxxxxxxxxxxxx [mailto:Gene_Gaunt@xxxxxxxxxxxxxxx] >> Sent: Tuesday, June 14, 2005 11:20 AM >> To: mi400@xxxxxxxxxxxx >> Subject: [MI400] print ILE built-in functions, V5R3-specific >> >> >> As you know, my old print program for MI built-in functions no longer >> works, since IBM removed the user space that contained the function >> names. >> But, for V5R3 at least, here is my rewrite that *will* work. Note that >> beyond V5R3, the three specific values below (665, 22A0, and 3980) will >> probably need changing. >> >> >> /********************************************************************/ >> /* PROGRAM - PRTBUILTIN */ >> /* FUNCTION - print the ILE built-in functions, V5R3-specific */ >> /* LANGUAGE - REXX */ >> /* AUTHOR - Gene Gaunt */ >> /********************************************************************/ >> >> "crtsavf file(qtemp/stdin)" >> "savobj obj(qwxcrtmd) ", >> "lib(qsys) ", >> "objtype(*pgm) ", >> "dev(*savf) ", >> "savf(qtemp/stdin) ", >> "updhst(*no) ", >> "dtacpr(*no)" >> "ovrdbf file(stdin) ", >> "tofile(qtemp/stdin)" >> "ovrprtf file(stdout) ", >> "tofile(qsysprt) ", >> "splfname(prtbuiltin)" >> data = '' >> do forever >> parse linein record >> if record == '' then leave >> data = data || left( record, 512 ) >> end >> walk = c2d( substr( data, X( 75 ), 3 )) >> walk = c2d( substr( data, X( 1D ) + walk, 3 )) >> walk = c2d( substr( data, X( 75 ) + walk, 3 )) >> walk = c2d( substr( data, X( 45 ) + walk, 3 )) >> walk = c2d( substr( data, X( 665 ) + walk, 3 )) + X( 0 ) >> name = walk + x2d( 22A0 ) >> code = walk + x2d( 3980 ) >> do while walk < name >> AA = c2d( substr( data, walk, 4 )) >> BB = c2d( substr( data, walk + 4, 2 )) >> CC = c2d( substr( data, walk + 6, 2 )) >> DD = c2d( substr( data, walk + 8, 2 )) >> EE = c2d( substr( data, walk + 10, 2 )) >> if BB == 0 then leave >> show = left( substr( data, name + AA, BB ), 20 ) >> do DD while EE == 0 >> show = show ||, >> right( c2d( substr( data, code + CC * 4, 4 )), 6 ) >> CC = CC + 1 >> end >> say show >> walk = walk + 12 >> end >> return >> X: return x2d( 5001 ) + x2d( arg( 1 )) >> >> _______________________________________________ This is the MI Programming on the AS400 / iSeries (MI400) mailing list To post a message email: MI400@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/mi400 or email: MI400-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/mi400. NOTICE: This electronic mail transmission may contain confidential information and is intended only for the person(s) named. Any use, copying or disclosure by any other person is strictly prohibited. If you have received this transmission in error, please notify the sender via e-mail.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.