write a pgm to read p.f using cl pgm?

Answer Posted / avinash

START: PGM
DCL VAR(&COUNT) TYPE(*DEC) LEN(10)
DCL VAR(&OUTPUT) TYPE(*CHAR) LEN(10)
DCLF FILE(*LIBL/PGMNAME)
FILE: SNDRCVF RCDFMT(RFMT)
END: ENDPGM

Is This Answer Correct ?    2 Yes 2 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Service Program : S1 Modules in S1 : M1 M1 having two procedures : ADD, SUB Current Binder Language STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP Doubt: I need to add one new Module to the Service Program M2 having one procedure ‘MULT’ How to add this new module to the service program S1 ? If I need to recreate the service program again, Do I need to mention the Module M1 again while recreating along with new Module M2? There is no Binding Directory. Binder language structure will be like this STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") EXPORT SYMBOL("MULT") ENDPGMEXP STRPGMEXP PGMLVL(*PREVIOUS) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP

2136


when do you use f-spec. Continuation line ?

1302


how can u check no of records in a file?

880


what are the three types of keywords associated with printer file ?

1341


define a shared access path?

1300


what are the three line types in rlu ?

1800


what if my system I runs with system value qccsid 65535?

823


how to get the cursor position?

924


using dfu, user will be able to ___________ from physical file?

767


what is the maximum number of parameters allowed in rpg?

1362


how you get the relative record in a subfile in which cursor is located?

841


define the purpose of the *bcat function?

1174


define data structure?

1353


what does check opcode do ?

1443


What is program status data structure(psds) in as400?

832