How to reverse the string in rpg

1811

when can a job time-out occur? How to overcome that?

1293

How may sets be ordered?

895

How to Build a Row Condition?

1726

which parameter is use to declare the name of dataset in dd statement?

1269

What are the prerogatives?

1080

Explain the difference between getting the system time with eibtime and asktime command?

1093

List out the three types of page locks that can be held.

1149

What is meant by an attribute byte?

1048

Tell about how do you eliminate the duplicates?

1007

What is the cics command that is used to access current date and time?

1121

Is length = 0 sufficient to ascertain that the field has been modified?

1080

What is multi row fetch in db2?

1052

what is db2 restart?

2162

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

2530