Interested to Buy Any Domain ? << Click Here >> for more details...
How to set on/off a group of indicators in a single statement?
- 3 Answers
- 11399 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / david lex
Both are correct, but if you're using free form, move will
NOT work (since it's not supported).
d dsInds based( *in )
d iErrNameFirst 20 20n
d iErrNameMid 21 21n
d iErrNameLast 22 22n
d iErrNameSuff 23 23n
d errorsName 4a overlay( dsInds : 20 )
/free
// reseting a subgroup of indicators
errorsName = *all'0'; // All indicators OFF
errorsName = *all'1'; // All indicators ON
// reseting the entire indicator structure
dsInds = *all'0';
dsInds = *all'1';
*in( * ) = *off;
*in( * ) = *on;
/end-free
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / sulthan
I cannot recollect completely. I will explain with an example.
C MOVE '00000' *IN(21).
this will set indicators from 21 to 25( total 5 zeroes from
21) to 0's.
Note: It is MOVEA or MOVE, not sure.
| Is This Answer Correct ? | 2 Yes | 5 No |
RPG/400 faqs?
are there any useful c runtime apis that I can call from rpg iv?
How do you call procedures in ILE?
please guys help me,I need to write a program that shows more than one way to display a subfile. Both views are of the same file but sorted differently and show different fields of the same file when the user presses a function key. send me code
use of PUTOVR,OVRDTA,KEEP keywords?
what was the robotech rpg?
Can anybody tell me that why we use option(*nodebugio)in H- Spec?
If the last record of a file has been read, and the next operation on that file is a READ operation, what will be the values of the input fields for that file? A. They will be blank and/or zero. B. They will be null. C. They will equal the values of the first record in the file. D. They will equal the values of the last record read.
suppose one file is used by 100 user and file is locked by 100 user, what are the impact analysis?
1.If *HIVAL SETGT is used what opcode is used to read a record? A:READ B:READPE C:CHAIN D:READP 2.How to pass numeric parameter to the rpg pgm from the command line? 3.What keyword is used on the rpg 4 definition specification to rename a subfile in an externally definition data structure? A:RENAME B;LIKE C:EXTNAME D:EXTFLD
Hi guys, anybody know How RPG/400 code can be converted to RPG IV code with a single command?
Is it possible to call a subfile using CL. IF yes.. kindly help me out with explanation...?
RPG400 
