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
- 0 Answers
- 2015 Views
- IBM, I also Faced
- E-Mail Answers
No Answer is Posted For this Question
Be the First to Post Answer
3 members in databasefile .how to read records from all the members??
difference between 1:%found and %equal built function in detail with example .
what will happen two jobs have same name are submitted
what is the difference between SETON RT & RETURN?
A particular job executing on the iS is not behaving as expected and is operating in an environment in which it can be debugged. What commands would you use to debug and observe the program?
WHAT IS MONMSG IDENTIFIER FOR STRTCPFTP command IN cl (as/400)?
How can we read a particular record from the database file which is not having DDS (Flat File). For example, there are 100 records in the flat file. How can we retrive 15th record in RPG/400 program (Without using CL)
What does Implicit Open means with respect to a file ? What about the Explicit Open?..what are the major differences between these two?
How to check which are the pgms using 1 perticulate file.? I know there is many tool available for X-reference...but need to know is there any command available in the system...?
which MONMSG will give higher priority in CL program? I know MONMSG are of two types. Program Level Monmsg and Command Monmsg?
which program rpg or cl is efficent to update a transaction onto a database file and why ?
Suppose my file has 10 fields and I want to make the 2nd field zeros in all records. And assume I have millions of records and I dont want to read each record and update the desired field with 0. Any other way to do this in one step operation?
RPG400 
