IBM MainFrame (5234)
IBM AS400 (1355)
IBM PL/1 (31) What is the most common way of building queue-id of a TSQ? (Name the constituents of the Queue ID).
2 5954Specify the CICS command used to read a VSAM record starting with prefix ?F?. Code all the relevant options.
IBM,
2 7490Which is the control table where you specify all the transaction that are to be started by CICS after CICS
4 7048
how may a cgi control duplicate inputs?
Explain the difference between comp & comp-3?
how can you prevent more than one user from accessing the same transient data queue?
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
Define an aica abend?
Would you specify freespace ce for an esds?
How long have you been working on mainframes?
how will you find a string using pdm?
http default port 80 is used by some other production http service. How can I create an http instance on another port to run cgidev2 and my future cgi developments?
how to initialize a register to 0000?
What is a Foreign Key?
Explain what is a cursor in cics sql processing?
what are the reserved words for cics?
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
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.