Date Prompting Problem ....

[Knox, Dave (Dallas, TX)]

Art

I concur with other postings that it may be having trouble reconciling with
leading and/or trailing spaces. Both would fail the prompt.

Especially given that it appears that your input is being driven via a third
party job control, which I think I've struck once before. Always an unknown
variable.

Anyway, an alternative.

!echo .\CURREOM,13C\01 >QZIN
!echo .\CURREOM,53\ >>QZIN
!QUIZ AUTO = PHYRXDT1.OBJR.COGACCT<QZIN

Should work.

Regards
Dave

> ----------
> From: 	Art Bahrs[SMTP:abahrs@denkor.com]
> Sent: 	Monday, July 03, 2000 11:10 AM
> To: 	POWERH-L@sphere.swau.edu
> Subject: 	Date Prompting Problem ....
> 
> Hi All :)
>    Hopefully, someone can help me on this Holiday Eve (at least for us
> 'Yanks' hehe)
> 
>    I am attempting to get a start and end date via the PROMPT method on a
> local memory variable in a Quiz run (which will then set a CI variable)
> and
> I am getting an error stating that the string I am imputting is too
> long...
> yet the $STDLIST shows that I am only getting 8 characters.... which is
> what
> I have defined the the field to be in Quiz....I have included the errant
> section of Quiz Code, the related JCL and the related part of the
> $STDLIST.
> 
> I am using the format of CCYYMMDD for my dates...
> 
> We are running Quiz 8.19.C3, JMS and MPE/iX 5.5 (patched) on a 979-200....
> 
> Any help will be very much appreciated.... I.E. what did I do wrong this
> time????
> 
> Art "hmmm.... it should work? but it doesn't... is it Monday?  hehe" Bahrs
> 
> 
> Quiz Source Code:
> ;* define local memory variables
> DEFINE P-BEGIN-DATE CHAR*08 = PARM PROMPT "ENTER BEGIN DATE YYYYMMDD:  "
> DEFINE BEGIN-DATE   CHAR*08 = TRUNCATE(P-BEGIN-DATE) &
>  IF (SETSYSTEMVAL("BEG_DTE", TRUNCATE(P-BEGIN-DATE))) &
>  ELSE " "
> 
> 
> JCL in Job Stream File:
> 
> !QUIZ
> Q U I Z   (PowerHouse  8.19.C3)
> Copyright 1998 COGNOS INCORPORATED
> DenKor Dental Management Corp.
> 
> EXE PHYRXDT1.OBJR.COGACCT
> .\CURREOM,13C\01
> .\CURREOM,53\
> 
> 
> JCL in $STDLIST:
> >  EXE PHYRXDT1.OBJR.COGACCT
> ENTER BEGIN DATE YYYYMMDD:   20000601
> This string is too long. Please re-enter.
> The maximum number of reprompts (0) used .
> An error occurred while prompting for DEFINE with PARM.
> 
> 
> 
> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> =
> Subscribe: "subscribe powerh-l" in message body to
> majordomo@lists.swau.edu
> Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
> This list is closed, thus to post to the list, you must be a subscriber.
> 
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.