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
Mainframes gets a text file that contains the name of the
file. Now using JCL i want to locate that file name in the
mainframe system and perform further processing. Please tell
how to proceed
113
If I want to execute Sftp commands(LS & GET) stored in
Physical file from CL program automatically...Can u Plz
tell me how can I do this?...How the script will look??
THANX FOR NY HELP...
21
I have some 3 particular fields ..i want to know which all
tables have those 3 fields. Is there any way to identify..
can we know by quering system tables..
what is OUTFILE?what is the uses and disadvantage?
where we can use this?
24
Can any one tell me that how we go for the compare,unit
testing after changing requirement as per client request.
this is very helpful for me when u give suitable (coading)
exmple.
Into what fields will the date and time values be moved
after execution of the above command?
189
When you are working with the project..
once your coding is over what will u do?
where u r maintaining your CR(change request)
what is the format
what are the documents u need to prepare while testing?
80
What are the main topics in CICS to prepare for interview
purpose and for real time purpose?
how a varible can be passed to a subfile...accnt1 contain
data in a data area..ie Daccnt1 uds,Daccnt2 3
overlay(accnt1:1),
DNo 4 overlay(accnt1:4)..we want to transfer this dataarea
value from acnt0001 to a subfile..that means to enter each
record we have to incriment account no,,
i normal window we can do
move accnt1 account_no
eval account_no=accnt1
eval no=no+1
exfmt usr_account
how it possible with Subfile????????.Please do answer?
(Thank you for all your answers dear friends!!)
Site Map
