Then the same responses would apply to you. If they don’t work, please describe your environment so someone knows where to begin. — Tom

…how recover data of oradate file

Without actual testing, the msgerr variable is defined incorrectly and is liable to give very unpredictable results. It is not a [4B 0] field, but instead should be defined as a 4-byte integer, [10i 0] should work. With [4B 0], there’s a good chance of the API believing that you are supplying an err code data structure. The API can then return any error in unpredictable memory instead of sending an *ESCAPE message. You probably wouldn’t know that an error was reported. — Tom

…please try the above code it moay works for you.

Without an entry in QAUDJRN, it all gets murky. We can’t be sure what program actually created the file. Are both the original and the duplicate defined as SQL tables? … as DDS physicals? … one as DDS and the other as SQL? (Use DSPFD to see the ‘Data Base File Attributes’, and look for ‘SQL file type’ to ensure that SQL created the table or that CRTDUPOBJ was used instead of CPYF.) If the SQL statements didn’t explicitly name libraries, part of the question becomes “How was the library chosen?” Is the STRSQL session data still available? — Tom

That’s kind of related to the type of thing I was thinking. But that is related more to the WinXP system trying to ping a remote host name rather than trying to ping the WinXP system FROM the remote host. How is your failing ping done? Is it by host name or by IP address? When the ping fails, can you have someone look at the WinXP system to verify the IP address? If the address is used, does the ping fail? What does tracert show for both the address and the host name? — Tom

hi help pleas how recover data of oradate file

The exact same question was asked one month ago. If this is an academic question, we do need to see work you have done before seeing if we can give any comments. If it isn’t academic, please provide a business reason that explains the problem. — Tom

Did you ever figure out a solution to this?  I am having the same problem right now.

phil code given by ravula will half justify of condition.
i have to satisfy the C=’y’ as well as write the latest records. which i mentioned as *.

100 Ist record (grp 1)
101 2nd record(grp2)
101 3rd record(grp2)
101 4th record(grp2)
102 …
102 …
103 ..
104 8th record(grp5)

Suppose I have to traverse the whole pf having data as above.
I need to traverse each set of key perform some action specifically n then traverse further set of
Key. According to my knowledge of setll and reade commands. I will do like this…
Suppose key=101
Setll key filea
If %equal
Dow not %eof
Reade key filea
………
………
Condition;
Enddo
Write fileb
Endif

In this way I can traverse the one group , but how do I change the key to point the another set of keys.
As i told u i am new to rpg..
might be answering to the above question can solve my previous problem…

Is this a homework question?
If not, can you show us what you have done so far and explaining exactly what problem you are experiencing?

Is this a homework question?
If not, can you show us what you have done so far and explaining exactly what problem you are experiencing?

“ravula i already applied the same code before”

Ravula’s code followed my logic and met your spec.
It wrote the records to file B
only for rows with C if VAL=’Y*’

The command c write format2 writes the records

print the latest records — PRINT?
you said write them to the file B.
Do you want to PRINT them to a spool file
or Write them to a file
or both.

Phil

A classroom has a teacher computer, smartboard, projector, video splitter, audio amplification system for the teacher, dvd player, and an AppleTV. All of the video components can be displayed using one or more of the video inputs on the projector. All of the audio components play through the audio amplification systems speakers.Please draw a diagram showing how you would interconnect the components and what cables you would use to interconnect them. If you can come up with a solution that makes the video splitter unnecessary, then feel free to not include it.

… In the discrete conversion each step could be monitored separately so that we would know which date was invalid…
that’s true philpl1jb, if it was important to know which one was in error, I would have to either determine it in the monitor or do a dump(a) to get a listing of them all or something

Please ignore that sndpgmmsg D-spec. Left over from various experimenting and not used in current version.

Tom – This is basically the first pgm here to use this technique for a msg subfile. I grabbed the parm info from something that calls the api but doesn’t seem fully functional. Since it sometimes works, I assumed the parms are OK.
Here’s the detail on it …
Parm fields –
D msgId s 7A
D msgLoc s 20A inz(‘SHMSGF *LIBL ‘)
D msgType s 10A inz(‘*DIAG’)
D msgKey s 4A inz(‘ ‘)
D msgErr s 4B 0 inz(0)
D msgrmv s 10A inz(‘*ALL’)
D msgData s 256A inz(‘General Error’)
D msgDlngth s 10i 0 inz(0)
D msgCStk s 10a inz(‘*’)
D msgCStkcnt s 10i 0 inz(0)
D sndpgmmsg pr extpgm(‘QMHSNDPM’)

api call –
C MSFSnd Begsr

C Eval msgDlngth = %len(%trim(msgdata))
c Call ‘QMHSNDPM’
c Parm msgId
c Parm msgLoc
c Parm msgData
c Parm msgDlngth
c Parm msgType
c Parm msgCStk
c Parm msgCStkcnt
c Parm msgKey
c Parm msgErr

C Endsr

The message file is standard. The screen setup is exactly what I’ve used many times (elsewhere).

Bruce – I’ll send you the whole thing via email.

What type of data are you looking to store and retrieve and for how long? Why not use cache, is there a reason? What language are you using? You may be able to use global variables, cookies or other means. A little more info on what you are trying to do would help in coming up with a solution.

i am not a student , i am it professional.. as400 and rpg is new to me..thats why facing such kind of problem.