ravikumar


{ City } bangalore
< Country > india
* Profession * software engineer
User No # 119386
Total Questions Posted # 2
Total Answers Posted # 6

Total Answers Posted for My Questions # 2
Total Views for My Questions # 3120

Users Marked my Answers as Correct # 1
Users Marked my Answers as Wrong # 2
Questions / { ravikumar }
Questions Answers Category Views Company eMail

How we will get issues on AS/400 technology ? I mean which issue/Defect Tracking tool is using in all companies when any issue comes? Can anybody explain about the work flow of AS/400 project ? plzzz

 IBM AS400 AllOther 1144

How to add 2 new fields in a file? How many ways are there in as400?

 2 RPG400 1976



Answers / { ravikumar }

Question { Four soft, 14022 }

i'm working on progA , in that program i want to see the
userids of the users who work on this program?


Answer

1)WRKUSRJOB

2)program status data structure

D data structure name SDS

D USER 254 263
* Username

Is This Answer Correct ?    0 Yes 0 No

Question { Accenture, 13523 }

How do you code file / field renames in ILE RPG?


Answer

Hi Ankit and shivam,

if two files having same record formats, using RENAME keyword we can rename the one record format...

Ffilename1 UF A E K Disk
F Rename(original record format name1:new record format1)
Ffilename2 UF A E K Disk
F Rename(original record format name1:new record format2)


Answer for Harshad to his question :
--------------------------------------------

D D0220NEW E DS PREFIX(D21:3)
D EXTNAME(CZGD02H0:CZTD02H2)
D D0220OLD E DS PREFIX(D@@:3)
D EXTNAME(CZGD02H0:CZTD02H2)

Is This Answer Correct ?    0 Yes 0 No


Question { Satyam, 18886 }

CAN WE READ RECORDS WITHOUT USING SETLL,READ,CHAIN IN RPG?


Answer

Hi Sai,

We can read records in so many ways in RPG Program.

1) primary file as file designation

2) file information data structure

3) Using pre-run-time array

0001.00 FFLAT01 IT F 5 DISK
0002.00 DPRE_ARR S 5 DIM(5) FROMFILE(FLAT01)PERRCD(1)
0003.00 C PRE_ARR(1) DSPLY
0004.00 C PRE_ARR(2) DSPLY
0005.00 C PRE_ARR(3) DSPLY
0006.00 C PRE_ARR(4) DSPLY
0007.00 C PRE_ARR(5) DSPLY
0008.00 C SETON LR

OUTPUT :
-----------

AAAAA
BBBBB
CCCCC
DDDDD
EEEEE

Is This Answer Correct ?    1 Yes 0 No

Question { Cap Gemini, 8385 }

1.I have a Physical file with 100 records, No duplicates
exists, all are Unique,But while i am running Runqry utility
i am getting only 80 records..What could be the reason?


Answer

Both answers are correct...

Is This Answer Correct ?    0 Yes 0 No

Question { TCS, 9927 }

i hav 2 logical files(L1,L2) both r derived from one physical
file(P1). how can i use both the logical files in one RPG
program? if yes what i have to d.


Answer

Hi,

copy those two logical files data into a physical file using CPYF command. Then, use that physical file in RPG program in F-spec...

CPYF FROMFILE(LIBRARY NAME/FILE NAME) TOFILE(LIBRARY NAME/FILE NAMECPY) FROMMBR(MBR NAME) TOMBR(MBR2CPY) MBROPT(*REPLACE) CRTFILE(*YES) FROMRCD(*START) INCREL((*IF field name *EQ 'R') (*AND field number *GT 99999999))

Is This Answer Correct ?    0 Yes 2 No

Question { 1694 }

how to create physical file


Answer

Hi,

We can create a physical file in 3 ways...


1)

first login to the as/400 system with your credentials...

and then enter WRKMBRPDM command on the command line...

and then, enter your "source physical file name" and "library name"...

and then, enter "STRSEU" command or take F6 on the command line...

it will display source entry utility window or page...

and then, enter your SOURCE MEMBER NAME, SOURCE TYPE, and press "Enter key" from your keyboard...

and then it will display member window and there give record format name enter fields whatever you want to display. if u need any take F1 for help...

after that press F3, and enter "SAVE" top of that page...

after that, compile with 14 option, and take "UPDDTA" on the command line and give records as data...

after that, RUNQRY *N member name() and press enter...

then it will display the records...


2)

F6


3)
CRTPF

this will help you to create a physical file

Is This Answer Correct ?    0 Yes 0 No