IBM MainFrame (5234)
IBM AS400 (1355)
IBM PL/1 (31) what is overlay? how can we pass parameters in cl or rpg programing? how can we get data area value in cl or rpg programming?
2 14537SUPPOSE I HAVE 60 CHARACTERS STING. IN THAT I WANT FIND OUT HOW MANY TIMES 'A'(ASSUME)WILL REPEATED AND I HAVE TO PASS 'E' IN PLACE OF 'A'ALONG THAT STRING.
2 6821)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?
IBM,
1956
What are catalog tables in db2?
Is acct parameter mandatory?
What is parallel sysplex?
how do handle file exception/error?
How many minimum number of line codes does PL/1 DB2 program requires?
Explain the difference between getting the system time with eibtime and asktime command?
What are all the divisions of a COBOL program?
How to receive data passed through jcl parm parameter in a natural program?
during execution, an rpg/400 program automatically follows a sequence of operations for each record that is processed. The built-in program cycle includes the following logical steps.
What are the different dataset organizations used in vsam?
What is difference between rollback and commit?
How do I import data from excel to db2?
What is a ci split? What is a ca split?
State the maximum number of tables that can be joined?
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