Re: Why is there no value in GH0100?

[Rob Berendt <rob@xxxxxxxxx>]

I've also noticed the following:

EVAL QUSRTVUSP :C                                                      
QUSRTVUSP :C =                                                         
          ....5...10...15...20...25...30...35...40...45...50...55...60 
     1   '                                                            '
    61   '       Ø0100JOBL0100QUSLJOB   1000202103503C  ??   {   ç  ??'
   121   '      ?ç   \   ?   ?                                        '
   181   '                                                            '
   241   '                                                            '
   301   '                                                            '
   361   '                                                            '
   421   '                                                            '
...

EVAL qusrtvusp :x                                                    
   00000     00000000 00000000 00000000 00000000   - ................
   00010     00000000 00000000 00000000 00000000   - ................
   00020     00000000 00000000 00000000 00000000   - ................
   00030     00000000 00000000 00000000 00000000   - ................
   00040     00000080 F0F1F0F0 D1D6C2D3 F0F1F0F0   - ...Ø0100JOBL0100
   00050     D8E4E2D3 D1D6C240 4040F1F0 F0F0F2F0   - QUSLJOB   100020
   00060     F2F1F0F3 F5F0F3C3 00000228 000000C0   - 2103503C.......{
   00070     00000048 00000108 00000040 00000148   - ...ç....... ...ç
   00080     000000E0 00000004 00000038 00000000   - ...\............
   00090     00000000 00000000 00000000 00000000   - ................
   000A0     00000000 00000000 00000000 00000000   - ................
   000B0     00000000 00000000 00000000 00000000   - ................
   000C0     40400000 00000000 00000000 00000000   -   ..............
...

But the plain old
EVAL qusrtvusp                                                         
QUSRTVUSP =                                                            
          ....5...10...15...20...25...30...35...40...45...50...55...60 
     1   '                                                            '
    61   '                                                            '
   121   '                                                            '
   181   '                                                            '
   241   '                                                            '
   301   '                                                            '
   361   '                                                            '
   421   '                                                            '
   481   '                                                            '
   541   '                                                            '
   601   '                                                            '
...

Why are no values displaying?


Is my problem with trying to move a varying length field into a fixed length 
field?

I added a traditional MOVEL,
C                   MOVEL     QUSRTVUSP     GH0100P     
C                   eval      GH0100=QUSRTVUSP          
                                                        
 * Initialize our offset to the offset of the list data.
C                   eval      CurOffSet=GHListOff       

Yet GH0100P has no value when debugged also.


+---
| 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
+---