Thanks for help everyone.
midrange-l-bounces@xxxxxxxxxxxx wrote on 06/05/2008 10:53:52 AM:
I see you figured it out already, but here is what came up in case it
It has some extraneous error handling logic that you can ignore or chuck
Also, I opted to use DB2SQL parameter style instead of more common
style used by CL (old habits die hard).
CREATE FUNCTION QGPL/getJobDate()
EXTERNAL NAME 'QGPL/GETJOBDATE'
PARAMETER STYLE DB2SQL
RETURNS NULL ON NULL INPUT
NO EXTERNAL ACTION
/* CL code */
pgm parm(&jobDate &outind +
&sqlstate &funcname &specname &msgtext &dbinfo)
dcl &jobDate *char 10
dcl &outInd *int 2
dcl &localdate *char 6
dcl &sqlstate *char 5
dcl &funcname *char 517
dcl &specname *char 128
dcl &msgtext *char 70
dcl &dbinfo *char 816
dcl &dummy *char 2 x'0000'
monmsg (cpf0000 mch0000 sql0000) exec(goto exception)
CVTDAT DATE(&LOCALDATE) TOVAR(&JOBDATE) TOFMT(*ISO) TOSEP(-)
chgvar &outind 0
chgvar &outind -1
chgvar &sqlstate 'XC999'
chgvar &msgtext (&dummy *tcat 'Unexpected error occurred, +
please check the joblog')
sndpgmmsg msgid(CPF9898) msgf(QCPFMSG) +
msgdta('Unexpected exception') msgtype(*DIAG)
Celebrating 11-Years of SQL Performance Excellence on IBM i, i5/OS and
Subject: Re: Retrieve JOB (not SYSTEM) date in SQL
Thanks. I had coded a TOSEP(*NONE) on my CVTDAT cmd instead of
. It seems to work now.
GETJOBDATE ( )
Is this OK or am I fooling myself.
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. Unless you are the addressee (or authorized to receive for the addressee), you may not use, copy or disclose to anyone this email or any information contained in this email. If you have received this email in error, please advise the sender by replying to this email, and delete this email immediately. Please note that any views or opinions presented in this email are solely those of the author and do not necessarily represent those of Western Dental Services, Inc. Finally, the recipient should check this email and any attachments for the presence of viruses. Western Dental Services, Inc. accepts no liability for any damage caused by any virus transmitted by this email.