Write the subfile logic program for the given concept. Load
the data to the subfile depends upon the designation where
designation is not a key field?

Answer Posted / ashok

Ffilename if e disk
then on load subroutine part
read the record format
dow not%eof
move the fields
increment 1 to the rrn
write the sflrcd name
read the record format
enddo

Is This Answer Correct ?    0 Yes 2 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Hi,Please give me the the answer for these quesitons? 1.what is IFS and ICF and RAPE amd DISKET fils? explain with example please? 2.What is the difference between POST AND SPACE OPCODES? 3.Can anybody tell me default printerfile command and object type?

2083


define the purpose of the iter operation?

1032


which are the query selection criteria, which can be given in a query?

669


a multiple format logical file is also known as?

591


what is the difference between normal upddta to pf and updating using dfu program?

757






what is the necessary keyword for non-join logical file?

1169


how can a message from a message file appear as a constant on the screen?

934


what are the different methods to access seu?

626


what is the version of os/400 that we have?

956


how will you search an array?

650


what are the different opcodes available in rpg for database access ?

809


how can I start a page in a new window?

785


can a join logical file be updated?

589


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

1927


what does vldcmdkey means?

816