Re: Why is there no value in GH0100?

[Rob Berendt <rob@xxxxxxxxx>]

And also the debugger will issue,

EVAL %substr(qusrtvusp 71 8)
%SUBSTR(QUSRTVUSP 71 8) = 'JOBL0100'

Now I added a bunch of code so that it looks like:
 * Retrieve the generic list header.                                   
C                   eval      %len(QUSRTVUSP)=%len(GH0100P)            
C                   eval      x=%len(qusrtvusp)                        
C* At this time x=192
C                   clear                   ERRC0100                   
C                   eval      errc0100p=errc0100                       
C                   CALLP     QUSRTVUS('JOBLIST   QTEMP     ':         
C                                       1:%len(GH0100P):QUSRTVUSP:     
C                                       ERRC0100P)                     
C                   eval      errc0100=errc0100p                       
C                   if        exceptionId<>*blanks                     
C                   return                                             
C                   endif                                              
C                   eval      x=%len(qusrtvusp)                        
C* At this time x=0.  Why in the world would that be true?
C                   MOVEL     QUSRTVUSP     GH0100P                    
C                   eval      gh0100p=%subst(qusrtvusp:1:%len(gh0100p))
C*  The previous line generates an error RNQ0100: Length or start position is 
out of range for the string 
C                   eval      GH0100=QUSRTVUSP                         
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---