Asna Visual RPG

35 pts.
Tags:
AS/400
ASNA
RPG
DCLDISKFILE  NAME(Reh02_pf) TYPE(*UPDATE) ORG(*INDEXED) ADDREC(*YES) DSG(*FULL)
DclFileCont DBDESC('Ozgur DB')
DclFileCont FILEDESC('Tel_Reh/Reh02_pf')

DCLDISKFILE  NAME(Reh_pf) TYPE(*OUTPUT) ORG(*INDEXED) DSG(*FULL)
DclFileCont DBDESC('Ozgur DB')
DclFileCont FILEDESC('Reh/Reh_pf')
I have 2 files. I want to write the informations from Reh02_pf to Reh_pf.
BegSr WriteToFile

Reh_Ads      = Ad_Soyad           
Reh_Kodu     = Kodu                

Reh_Kodu2    = Kodu2            

Reh_Kkod     = Kisa_kod         
Reh_Blm      = Bolum                  

Reh_Tel      = Tel_No                  

Reh_Cep      = Tel_NoCep              

Reh_Cep2     = Tel_NoCep2         

EndSr
And this are my variables in 2 different database, and I want to match the variables with others and write it to Reh_pf. I hope someone can help me. thanks in advance!

Software/Hardware used:
As 400 , Asna Visual Rpg , Asna Acceler8DB Database Manager

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Discuss This Question: 4  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • TomLiotta

    I hope someone can help me.

    What problem are you having?

    Tom

    125,585 pointsBadges:
    report
  • Mahmut20
    Asna Visual Rpg , and Asna Acceler8Db as database
    35 pointsBadges:
    report
  • Mahmut20
    Asna Visual RPG 4 , and Asna Acceler8DB as database

    35 pointsBadges:
    report
  • Mahmut20
    DCLDISKFILE  NAME(Reh09_pf) TYPE(*UPDATE) ORG(*INDEXED) ADDREC(*YES) DSG(*FULL)
      DclFileCont DBDESC('Ozgur DB')
      DclFileCont FILEDESC('Tel_Reh/Reh09_pf')

    DCLDISKFILE  NAME(Reh_pf) TYPE(*OUTPUT) ORG(*INDEXED) DSG(*FULL)
      DclFileCont DBDESC('Ozgur DB')
      DclFileCont FILEDESC('Reh/Reh_pf')


    DclKlist File_Key
              DclKfld  Ad_Soyad

    ExSr Oku_Yaz

    SETLL Reh09_pf *LOVAL
    Read Reh09_pf Eof(*In09)
    Dowhile ~*In09
    Exsr Oku_Yaz

    Read Reh09_pf Eof(*In09)
    EndDo


    BegSr Oku_Yaz
       Reh_Ads      = Ad_Soyad           
       Reh_Kodu     = Kodu                
       Reh_Kodu2    = Kodu2            
       Reh_Kkod     = Kisa_kod         
       Reh_Blm      = Bolum                  
       Reh_Tel      = Tel_No                  
       Reh_Cep      = Tel_NoCep              
       Reh_Cep2     = Tel_NoCep2  
    Write Reh_pf       
    EndSr




    And now it works :) it was the codes i needed , thanks to my Boss for correcting me ^_^
    35 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following