Date Prompting Problem ....

Glenn Waters Glenn_Waters@ncsu.edu
Mon, 03 Jul 2000 12:27:46 -0400


A couple of ideas.

1. Have you tried looking at this through a terminal? Are you familiar with "display functions" in an HP terminal environment? Display the $STDLIST through whatever spooler you use with display functions turned on, looking carefully at the prompt area. Maybe a piece of garbage has snuck in your JCL when you entered the date (ie "20000601 "). Since you are reading the field as character an extra blank, or non-printable character might mess you up.

2. Enter the date field as a DATE instead of CHAR. Then ASCII the date field into what you need. You get the extra benefit of Powerhouse making sure you enter a valid date.

Hope this helps...

At 09:10 AM 7/3/2000 -0700, you wrote:
>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.


Glenn Waters
North Carolina State University 
College of Veterinary Medicine 
4700 Hillsborough St., Box 8401 
Raleigh, NC 27695-8401 
Phone: (919) 513-6652
Fax: (919) 513-6452 
Email: Glenn_Waters@ncsu.edu


= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.