IBM AS400 Interview Questions, Answers for Freshers and Experienced asked in various Company Job Interviews

RPG400 (448)
COBOL400 (67)
DB400 (96)
COOLPLEX (8)

IBM AS400 AllOther (736)

IBM AS400 Interview Questions

Questions Answers Views Company eMail

How to write a password mask program in as400? like the password which i type should be displayed as '*****' r ###### which the user wishes to dispaly if u could help me with url r the solution in written code this will help me

Accenture, SNS,

21 36299

When search all is used in cobol program without sorted input data

3 10542

1) Can we declare a Display file in CL? 2) How many no. of files can be declared in a CL? 3) What is Non-Join Logical file and its importance?

Cognizant,

4 24362

1) Suppose we call a pgm from CL, how come AS400 system knows whether the called pgm is to be interactive one or batch one? 2)How many members can exist in a PF?

7 17054

Im traying to get out put of this below mention simple logic code.But im geting out of different.(im trying with my laptop trhough my company server. DCL &FIELD1 *CHAR 10 VALUE('TCS AS/400') DCL &FIELD2 *CHAR 10 CHGVAR(%SST(&FIELD2 1 10))(%SST(&FIELD1 10 1) Can you tell me the value of field2 after excuted of CHGVAR command.

2 6203

Hi friends, Can you give the solution for the below mention simple code.and explain.what is output D CHR1 S 4A INZ('PEN') D CHR2 S 10A INZ('MYGET') D CHR3 S 8A INZ('GOOD') D CHR4 S 22A INZ C MOVEL CHR1 CHR4 C MOVE CHR2 CHR4 C EVAL CHR4=CHR3 C MOVE CHR1 CHR4

4 6660

Good morning my experts.Im kuppi.im working as a software trainee on AS/400 technology.i have also joined with ibmi5 team.im trying to convert date with cl/400 coding.I have taken 2 parameters(like date and date types). A. If suppose date type is j,Now i want to convert date to *MDY format B. if date type is M,now i want to convert date to *JUL format C. sending a Program message with the value of converted date.

1 4221

How we can delete all the Logical File of a Physical file in one instance ?

IBM,

9 36426

Diff B/w ref and reffld?

1 11929

i)What is the command to lock a file in a program ii)2. Can you get a level check error in a CL program

6 13092

Can we create 300 logical files based on a single physical file using the CRTLF command only once?.

8 15727

why we use binding directory and service pgm

TCS,

4 14899

How do you find out whether a record is present in the physical file without reading the file? for Example Employee No: 100 in an Employee master.How do we find out whther 100 is present in Employee master without reading the file?

Bank Of America, CSC, IBM,

11 29402

How can we find out whether the job is interactive or Batch through RPG program? 2) How can we find out through CL program?

CSC,

6 29860

In single page subfile,if I select the mutiple options in 1 page and without pressing enter,I press rollup key (pagedown).In such case how I can handle it in rpg becasue in single page we have to handle it in pgm. It would be helpful if any one answer with coding

Infinite Computer Solutions,

4 19851

Un-Answered Questions { IBM AS400 }

Please tell me how to read the records from a file with load an array of size with error conditions(The logic answer for this question is ARR is array of 99 elements Z-ADD 0 IDX *LOVAL SETLL FILE READ FILE 99 *IN99 DOWEQ *OFF IDX ANDLT 99 ADD 1 IDX MOVE FIELD ARR,IDX READ FILE 99 ENDDO).So,Please give me the complete of this code.

2521

where will control be passed after the execution of the *pssr subroutine if the factor2 of the endsr is blank ?

1835

what are the different commands used in rlu ?

2414

what is the syntax for plist?

1119

what are the two record formats a subfile contain ?

1912

how to declare a constant variable in the freeformat?

1407

I have created a command that display Source file and library. Now i want that when i enter library name and press f4 on Source file, pgm should display all the PF- SRC's in that Library. For F4 option i have used Choice program but since only limited paramters are passed in Choice pgm i am not able to paas library name and further can't call a pgm that will display list of Source files. Below is the Code snippet for CMD type object :- CMD PROMPT('Source Scan for HUB Standard') PARM KWD(SOURCE) TYPE(*CHAR) LEN(1) RSTD(*YES) + VALUES(N A) MIN(1) + CHOICE('N,A') PARM KWD(SRCFILE) TYPE(FILE) RSTD(*NO) + PROMPT('SOURCE FILE') FILE: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) EXPR (*YES) + CHOICE(*PGM) + CHOICEPGM (XXXXXLIB/YYYPGM) QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) + SPCVAL((*LIBL)) EXPR(*YES) PROMPT ('Library') Below is the Choice pgm:- PGM PARM(&PARM1 &PARM2) DCL VAR(&PARM1) TYPE(*CHAR) LEN (21) DCL VAR(&PARM2) TYPE(*CHAR) LEN (2000) IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + 21 1) = 'P')) THEN (DO) /* (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + */ CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') ENDDO IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + %SST(&PARM1 21 1) = 'P') THEN (DO) CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') CALL PGM(GTSQL) PARM ('XXXXLIB') return ENDDO Thanks in Advance for looking into.

3498

define subsystem?

1632

What is the syntax of redefine?

955

what is rpg ?

1649

Explain the difference between search and searchall?

869

How to change the batch job to interactive job?

989

what is sflpag and sflsiz ?

3446

what is the procedure and explain about real time scenario.

1957

how do you use exceptional write in c specs?

1898

For More Un-Answered { IBM AS400 } Questions Click Here