1.Can any body share me about thease opcodes with example
please.Im new for AS/400.Could u please tell me in real
senario?
1.TESTN,
2.EVAL
3.EVALR,
TIME,
4.MONITOR
5. ENDMON
6.ON-ERROR
7.COMMIT
ROLLBACK?
Answer Posted / sumit gupta
TESTN:- this opcode test whether the variable placed at
result field is numeric and return the high(HI) indicator
value as '1'. Rest LO and EQ will remain off.
Eval:- This opcode is applicable for only same type of
character. Eg:- if you want to move a character value to
numeric value then IT WILL THROUGH COMPILATION ERROR.
Bydefault, eval opcode will move from left. For eg:- let
abc=' ' then
eval abc='AAA' abc will be 'AAA '
EVALR:- same as previous diffrence is right adjust.
TIME:- This opcode will return the system time of day.
MONITOR:- this opcode is used to monitor the error in rpgle
program.
ENDMON:- This opcode is used in conjunction with MONITOR
opcode.
ON-ERROR:- This is used again wilt monitor and endmon opcode
MONITOR
ON-ERROR
ENDMON
COMMIT:- This opcode is used to commit the changes in the
file.
COMMMIT keyword is used in F-specs like
Fabc UA F DISK COMMIT(*IN03)
:
:
C If *in03='1'
C COMMIT
C ELSE
C ROLLACK
C ENDIF
If Indicator 03 is '1' then commit all the changes done in
the database file. Else rollback is done onto that database
file.
| Is This Answer Correct ? | 10 Yes | 0 No |
Post New Answer View All Answers
How can we override a file during runtime in rpg?
can any one help in hawkeye and turnover or any change management system plzzzzz or send the documents to my mail id :gvsp.as4@gmail.com
can anybody help me to solve this problem. the program that i m checking display error message saying "Record format for file AJDSPFFD does not match model file and decimal error. how to solve this problem. The AJDSPFFD is snapshot the AJTLOG that is the audit trail list.
what is a rpg?
what is an online rpg?
write an RPG program to calculate the marks of 5 students (A,B, C, D, E)in 3 different subjects (eng, math, sci) an display on the screen
How many program bind in one module....
can you debug ile rpg program using isdb?
What is the difference between iter and do?
What is the difference between copybooks and subprocedures in as400?
how does the rpg element work?
How Chain operation copies the record's data to the input buffer for the program?
What is ment by record level identifier?
are there any useful c runtime apis that I can call from rpg iv?
Assume 2 users are using the same file and first user updates some record in the file. Will the 2nd user will be able to see the updated record or not?