When PGMA calls PGMB for the first time PGMB executes the
*INZSR. PGMB uses the RETRN operation to return to PGMA.
When PGMA call PGMB the second time is the *INZSR executed?

Answer Posted / khadam sheikh

Yes. Whenever PGMB is called *INZSR is executed first.

Is This Answer Correct ?    0 Yes 11 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

what is file information data structure?

1381


How to write record if no field or the field are different in physical file in rpgle ?

494


can you debug ile rpg program using isdb?

743


which program rpg or cl is efficent to update a transaction onto a database file and why ?

749


How can we know running job is batch or interactive?

660






Q:HI friends accually ihave one problem plesase let me know the alternate code of this code. Related field description of code: Add a field, CALvsPRD, "Calendar Day Starts Before/After Production Day" to the parameter set WRKORDER which accepts values 'A' or 'B' o B = Calendar Day Starts Before Production Day o A = Calendar Day Starts After Production Day o Any other value indicates the production and calendar dates are always the same. code: Automatic Execution Of *INZSR Subroutine /Z01 * retrieves WRKORDER field values. /Z01 * Calculate default Production Date and return it to caller. /Z01 * Production date defaults to system date /Z01 C Eval P@Pdate = %DATE() /Z01 * unless Calendar date starts Before PDN(production) date and /Z01 * system time is before PDN Start Time then /Z01 * PDN date is yesterday. /Z01 C If W@CALvsPRD = 'B' and /Z01 C %TIME() < %TIME (W@Strtime) /Z01 C Eval P@Pdate -= %Day(1) /Z01 * unless Calendar date starts After PDN date and /Z01 * system time is *GE PDN(production) Start Time then /Z01 * PDN date is tomorrow. /Z01 C ElseIf W@CALvsPRD = 'A' and W@Strtime > *Zero and /Z01 C %TIME() >= %TIME (W@STrtime) /Z01 C Eval P@Pdate += %Day(1) /Z01 C EndIf /Z01 C Eval *InLr = *On

2018


what was the robotech rpg?

689


1. What is bound-by-call and bound-by-reference? 2. Where and why is *Nomain used? 3. What are the difficulties faced by programmers when using service programs? 4. Explain the different ways of parsing and compiling XML in iSeries.

5431


what is the procedure and explain about real time scenario.

1484


What are the types of identifiers?

574


what is program status data structure?

1396


are there any useful c runtime apis that I can call from rpg iv?

705


how can you display specific subfile page on the screen in unequal subfile?

677


Program to read marks of 10 students for 4 subjects and compute and display total marks and status of each student in rpg

723


Interviewer asked me write down DDS for load all subfile .can anybody write dds

1026