How to set on/off a group of indicators in a single statement?
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 |
Can anybody tell me the setps to create .csv file in IFS folder on AS/400. I also need to know how I can send this .csv file to PC in xls sheet.....?
in a cl pgm records are copied to a file in qtemp a pgm is called to delete records from the file in qtemp no of records in file in library qtemp is checked wat shud be the count of records let say it was 10 initially endpgm
purpose of pannel group??/
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
In case if I want to know whether a record exists in a file, which one do you prefer CHAIN or a SETLL and why ?
how does the rpg element work?
give an eg of ACQ-(ACQUIRE),BIT OFF,BIT ON,DEALLOC,DUMP,FEOD,FORCE,MHHZO,MHLZO,MHLLZO,MLHZO,REL,RESET,TESTZ,TESTB,TESTN----GIVE SMALL EXAMPLE TO THE OPCODES...TO UNDERSTAND FUNCTIONING...........
i want to perform uniqness on db file bt my db file nt hving key by useing rpgle.
How can i keyed a flat file in RPGLE
RPG/400 faqs?
IN RLU what are the record level keyword is used?
HOW DO YOU DISPLAY A DISPLAYFILE AT OTHER WORKSTATION? CAN WE MOVE A PHYSICAL FILE? WITHOUT MOVING A FILE?