|
H OPTION(*NODEBUGIO) NOMAIN ********************************************************************** * Definition Specs ********************************************************************** DQUSI020000 DS D QUSJT04 61 61 DQUSEC DS 116 inz D QUSBPRV 1 4B 0 inz(116) D QUSBAVL 5 8B 0 inz(0) D QUSEI 9 15 D QUSERVED 16 16 D QUSED01 17 116 * Variable returned to caller D Job_Type S 1 * Program Variables D FormatName S 8 Inz('JOBI0200') D InJobName S 26 D IntJobName S 16 D JobName S 26 Inz('*') D Outcount S 5 0 D ReceiveLen S 10i 0 Inz(187) * ZJOB_TYPE- Retrieve Job type D ZJOB_TYPE PR 1 * Begin prototype procedure P ZJOB_TYPE B Export D ZJOB_TYPE PI 1 *+++++++++++++++++ M A I N L I N E C A L C S +++++++++++++++++ * Call the api to get the information for job type... C Eval Job_Type = *Blanks C Call 'QUSRJOBI' C Parm QusI020000 C Parm ReceiveLen C Parm FormatName C Parm JobName C Parm IntJobName C Parm QusEc * Load the job type... C Eval Job_Type = QUSJT04 C Return Job_Type ********************************************************************** P E Hope that helps. Regards, Jerry Gerald Kern MIS Project Leader, Lotus Notes/Domino Administrator IBM Certified RPG IV Developer, RPG IV Programmer The Toledo Clinic, Inc. 4235 Secor Road Toledo, OH 43623-4299 Phone 419-479-5535 gkern@xxxxxxxxxxxxxxxx ***** This email message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message.
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.