Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ver (&ueentfdt,stddate) fails

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Ron Masters
Currently Banned

New User


Joined: 21 Dec 2011
Posts: 24
Location: UK

PostPosted: Tue May 01, 2012 6:56 pm    Post subject: ver (&ueentfdt,stddate) fails
Reply with quote

Dear all,
I am on ISPF ISPF 6.3.
I have a panel defined as shown below. The )BODY section uses variable ueentfdt with a normal entry field attribute. The )PROC section has a VER statement for it specifying STDDATE.

The DISPLAY is inside a rexx do forever loop (fragment below). The first time round the loop, if I enter rubbish in the field then verification prevents control from returning to rexx (that's good). If I enter 2011/01/01 then control is returned, the remaining body of the loop is executed, and the loop iterates. Control passes to DISPLAY again, and displays 2011/01/01 in the field, because the value of the vaiable hasn't changed (that's good too).

If I position the cursor under the 9th character and hit Erase End-of-Field (i.e. leave jost 2011/01/ in the field) and then hit enter, control is returned to rexx against all my expectations, and some subsequent SQL fails. Can anyone explain what I need to do for DISPLAY to recognise this as a non-valid STDDATE value?

The panel:
Code:

 BROWSE    PENV.LCH.SA.LIB.PANELS(UAPDENQ) - 01.23    Line 00000000 Col 001 080
  Command ===>                                                  Scroll ===> CSR 
********************************* Top of Data **********************************
)ATTR                                                                           
/*********************************************************************/         
/*                                                                   */         
/*  Amendment log                                                    */         
/*  -------------                                                    */         
/*  30-Apr-2012  RM  corrected attribute byte before < in comparison */         
/*                   operation field of Entereed, Processed, Leaving */         
/*  30-Apr-2012  RM  Changed INIT section .help value to UAHDENQ     */         
/*  30-Apr-2012  RM  Added this amendment log                        */         
/*********************************************************************/         
 05 TYPE(PT)                               /* Panel title              */       
 %  TYPE(TEXT)   INTENS(LOW)  SKIP(ON) COLOR(WHITE)                             
 +  TYPE(TEXT)   INTENS(LOW)  SKIP(ON) COLOR(BLUE)                             
 $  TYPE(TEXT)   INTENS(LOW)  SKIP(ON) COLOR(GREEN)                             
 32 TYPE(OUTPUT) COLOR(WHITE)                                                   
 _  TYPE(NEF)    CAPS(ON)                                                       
)BODY  CMD(ZCMD)  Expand({})                                                   
.{ } User Administration V1.0 - request enquiries { }                           
%Command ===>_ZCMD                                                             
$                                                                               
$Use this screen to check%pending$or%actioned$requests                         
$Select the%request database$and then%any or all$of the other options.         
$                                                                               
%C$urrent /%A$rchive$<_Z$> (Only the%current$database exists at present)       
$Requestor name.....$<_UEREQNAM                                $>               
$DSA or CAN number..$<_UEREQID$>                From yyyy/mm/dd  To yyyy/mm/dd 
$Entered by userid..$<_UEENTUSR$>  Date Entered    <_ueentfdt  $> <_ueenttdt  $>
$                                  Date Processed  <_ueprofdt  $> <_ueprotdt  $>
$                                  Date of Leaving <_uedepfdt  $> <_uedeptdt  $>
$Userid processed...$<_UEOWNUSR$>                                               
$Owner   CEN........$<_Z      $>                                               
$Manager name.......$<_UEMGRNAM                                $>               
$Manager CEN........$<_Z      $>                                               
$RACF environment...$<_Z   $>    e.g. EOCP, EOCY, SIC1 etc.                     
$User type..........$<_Z$> %P$Personal %F$Functional %G$Generic                 
$Priority...........$<_Z$> %I$Immediate%S$Scheduled                             
$Process status.....$<_Z$> %A$Actioned %P$Pending                               
$Process type.......$<_Z$> %B$Block    %L$Long leave %R$Reactivation %D$Deletion
$                                                                               
$Any matching requests will be displayed on the next screen.                   
%PF1$- HELP,%PF3$- END,%ENTER$- PROCESS                                         
)INIT                                                                           
 .help   = UAHDENQ                                                             
 .zvars  = '( uedb                                    +                         
              ueowncen                                +                         
              uemgrcen                                +                         
              ueenv                                   +                         
              ueutype                                 +                         
              ueprio                                  +                         
              uestat                                  +                         
              ueproc)'                                                         
 &zcmd   = &z                                                                   
 .cursor = &uecurs                                                             
)PROC                                                                           
 ver (&uedb,nb,list,C,A)                                                       
 ver (&uereqnam,include,imblk,alphab)                                           
 ver (&uereqid,num)                                                             
 ver (&ueentusr,name)                                                           
 ver (&ueentfdt,stddate)                                                       
 ver (&ueenttdt,stddate)                                                       
 ver (&ueprofdt,stddate)                                                       
 ver (&ueprotdt,stddate)                                                       
 ver (&uedepfdt,stddate)                                                       
 ver (&uedeptdt,stddate)                                                       
 ver (&ueownusr,name)                                                           
 ver (&ueowncen,num)                                                           
 ver (&uemgrcen,num)                                                           
 ver (&ueenv,name)                                                             
 ver (&ueutype,list,P,F,G)                                                     
 ver (&ueprio,list,I,S)                                                         
 ver (&uestat,list,A,P)                                                         
 ver (&ueproc,list,B,L,R,D)                                                     
)END                                                                           
******************************** Bottom of Data ********************************


and the fragment of rexx is:

Code:

                                                                           
arg db2_subsys db2_creator ua_parmlib .                                     
                                                                           
address ISPEXEC                                                             
                                                                           
"CONTROL ERRORS RETURN"                                                     
                                                                           
call initialise                                                             
                                                                           
do forever                                                                 
  "DISPLAY PANEL(UAPDENQ)"                                                 
  if rc <> 0 then leave                                                     
                                                                           
  if val_UAPDENQ() > 0 then iterate                                         
  process_rc = process_UAPDENQ()                                           
                                                                           
/*call init_UAPDENQ                                                  */     
end                                              /* of do forever    */     
                                                                           
address DSNREXX "DISCONNECT"                                               
s_rc = Rxsubcom("DELETE","DSNREXX","DSNREXX")                               
                                                                           
exit 0                                                                     
                                                                           
Back to top
View user's profile Send private message

Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Tue May 01, 2012 9:48 pm    Post subject: Reply to: ver (&ueentfdt,stddate) fails
Reply with quote

I was curious and tried it... I am also on ISPF 6.3.

If I start with a bad date, such as 2012/01/44, then when the 44 is blanked out, the VER detects the problem with:
Quote:
ISPP541 VER statement failed for STDDATE. The 2-digit day entered is not within the 01-31 range for the months of January, March, May, July, August, October or December OR the 2-digit day entered is not within the 01-30 range for the months of April, June, September or November.


If I start with a good date, such as 2012/01/03, then when the 03 is blanked out, the VER does not detect the problem.

I think you should call the IBM support center and report the problem. The definition of STDDATE is pretty explicit and your example fails on the length test and on the two digit day range.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7225

PostPosted: Tue May 01, 2012 10:08 pm    Post subject: Re: Reply to: ver (&ueentfdt,stddate) fails
Reply with quote

Got curious and checked. February has its own error message, ISPP542 :-)
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Tue May 01, 2012 10:11 pm    Post subject:
Reply with quote

This date "9th of Iyyar, 5772", brought down 3 sysplexes.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Tue May 01, 2012 10:27 pm    Post subject:
Reply with quote

I can't see why; it's not a fast day.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7225

PostPosted: Tue May 01, 2012 10:29 pm    Post subject:
Reply with quote

Quote:
This date "9th of Iyyar, 5772", brought down 3 sysplexes.


Dang. I foolishly thought "well, that can't be true" :-)
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1218
Location: Israel

PostPosted: Wed May 02, 2012 1:35 am    Post subject:
Reply with quote

PeterHolland wrote:
This date "9th of Iyyar, 5772", brought down 3 sysplexes.

Is that a "9th of Nisan, 5772" joke ? icon_wink.gif
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed May 02, 2012 12:34 pm    Post subject:
Reply with quote

Marso, in Holland that day is "Labor Day"
Back to top
View user's profile Send private message
Ron Masters
Currently Banned

New User


Joined: 21 Dec 2011
Posts: 24
Location: UK

PostPosted: Wed May 02, 2012 7:18 pm    Post subject: Reply to: ver (&ueentfdt,stddate) fails
Reply with quote

Thanks for all useful input. PMR raised with IBM.
Ron
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1218
Location: Israel

PostPosted: Wed May 02, 2012 8:02 pm    Post subject: Reply to: ver (&ueentfdt,stddate) fails
Reply with quote

We have ISPF 6.1 and STDDATE behaves the same way:
Even on the first display, '2012/05/' passes the STDDATE validation.


Also, for those who don't know what "Iyyar" and "Nisan" are, these are months from the Jewish calendar. 5772 is the year...
"9th of Iyyar, 5772" is 1st of May 2012,
"9th of Nisan, 5772" is the 1st of April 2012
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed May 02, 2012 10:20 pm    Post subject:
Reply with quote

Quote:

Also, for those who don't know what "Iyyar" and "Nisan" are, these are months from the Jewish calendar. 5772 is the year...
"9th of Iyyar, 5772" is 1st of May 2012,
"9th of Nisan, 5772" is the 1st of April 2012


Marso, lets keep that between us.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7225

PostPosted: Wed May 02, 2012 10:31 pm    Post subject:
Reply with quote

Quote:
Marso, lets keep that between us.


And google...
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts Cobol EZASOKET call to SETSOCKOPT fails Andi1982 COBOL Programming 6 Thu Oct 06, 2016 7:12 pm
No new posts OUTREC FILELDS FAILS WITH ICE126A 2 ... balaji81_k DFSORT/ICETOOL 8 Sat Jul 02, 2016 1:22 am
No new posts z/os USS: 'man' fails to read bookmaster maraixadm All Other Mainframe Topics 4 Sat Mar 21, 2015 7:59 pm
No new posts Edit Macro Fails in GET Akatsukami TSO/ISPF 4 Thu Feb 13, 2014 3:50 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us