View previous topic :: View next topic
|
Author |
Message |
amar_modi
New User
Joined: 10 Apr 2007 Posts: 1 Location: australia
|
|
|
|
Hi All,
I am new to Telon and IMS DC. Now I need to work on Telon, IMS DC and DB@.
My requirement is through screens program should get input and based on that it should update or retrieve information from DB2. I could see screen in Telon using panel specification option in Telon.
Please let me know what are the steps I need to do to accomplish this.
Thanks,
Amar. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Just puzzled!
for what kind of "pick a derogative term" organization do You work, which does not care to give You such basic training ????
regards
P.S.
I do not mind very beginners questions for COBOL, somebody might try to learn by themselves ;
TELON .. no, You can' t do it, You need an organization to back You up |
|
Back to top |
|
|
ashwinreddy
Active User
Joined: 16 Sep 2004 Posts: 106 Location: Hyderabad
|
|
|
|
Hi,
After painting screen in the Panel definition and also completing the field name and usage as Input or output or Inputoutput.
Go to data group(DG) where u can write your sql quires as
1) First insert a table in the data group using the command as DGADD tablename.D2 (you will get a message as Data group successfully updated)
2) then use a line command insert I against the created table and use either Read or update. After giving the Read write a select query by giving U against the READ.
3) After writing the query u will get the name as U-100-READ-Tablename.
Go to Custum code and create a oinit1 section.
So perform the section U-100-READ-tablename or U-100-UPDATE-tablename depending on the input from the screen.
After perform the above sections check code as
IF input filed Not = spaces
Perform U-100-READ-tablename
IF DA-OK
PERFORM U-100-UPDATE-TABLENAME
IF DA-OK
SET SUCCESSFUL-UPDATE TO TRUE
ELSE
ABEND THE PROGRAM USING ABEND SECTIONJ
END-IF
END-IF
END-IF
I cann't explain more than this through forum.
Hope this will help you some extent
Cheers
Ashwin |
|
Back to top |
|
|
ashwinreddy
Active User
Joined: 16 Sep 2004 Posts: 106 Location: Hyderabad
|
|
Back to top |
|
|
|