Interested to Buy Any Domain ? << Click Here >> for more details...
with out sorting how to copy records from one file to another file using jcl.Mean I have one input file in which the record are like 1,6,5,4,2,3(for example) and i want to copy to output file from top to bottom(without sorting) like 3,2,4,5,6,1.so I want the JCL for this.cna any one can answers?
TCS,
1 17195what is pupose and meaning of the REGION keyword and what jcl statement is it associated with?
1 5916
HOW to change the coloumns in XREF?
Differentiate between structured cobol programming and object-oriented cobol programming.
Which isolation level provides maximum concurrency?
Define a region in idms?
What are s0c1, s0c4, s0c5, s0c7 and socb?
Give the definition of COMMAREA ?
How to remove the spaces at end of each record in the output file Via COBOL program? note: The file has a VB length ----TRY
What are 77 levels used for?
What is reorg and runstats in db2?
What is adabas?
Can you explain dfhmdf bms macro?
What is psbgen process?
in a cobol select statement, can you tell what is the organization for a ksds?
what is DSN parameter and DISP parameter is used for?
how to create a changeman read only audit and update only audit Specifications for the Read only Audit 1) Read HFFD database unqualified. 2) Read FDRT, FDDM, FDAP segments. If FDAP-APP-STS is ‘2’ read the FDAV segment and get the FDAV segment which has FDAV-APV-OPTION as ‘X’ If FDAP-APP-STS is ‘5’ read the HFAC database. Read the ACRT segment qualified based on the key obtained from the FDAP segment from HFFD database. Conditions for writing into output file: a. App Type should be NEWR b. App Status should be 1, 2 & 5. c. Write 50 records per app status. For e.g. first 50 records for App status 1, 2 & 5 each The output file should contain the following fields from the database FDRT-COMP-CTRY-CODE X(03). FDRT-CUST-ID-NUM X(10) FDDM-DEM-SEQ-NUM X(01) FDAP-APP-SEQ X(02) FDAP-JNT-IND X(01) FDAP-APP-STS X(01) FDAV-APV-OPTION X(01) FDAV-APV-DT X(06) FDAV-APV-AMT X(07) ACRT-ACCT-NUM X(06) ACRT-SEG-BUS-TYPE X(02) ACRT-NM1-LAST X(19) ACRT-NM1-SS X(09) ACRT-NM1-1ST X(12) ACRT-NM1-INIT X(01) ACRT-NM1-SFX X(03) ACRT-NM1-TITLE X(02) PSB – DVAN2BMP In case you get a GE for any of the conditions, write to output file along with the details of the database segment which was not found. We need to complete this whole process by tomorrow. Run the audit in DLI mode. 2) Sort the output file created in step 1 on Cust ID, Dem Seq & App Seq. Specifications for the Update Audit 3) Take the output of step 2 as input for an update audit. Details are as follows: Read each record & check the app status. If app status is less than 2 then update the FDAP-NEW- MONEY-ENT to $25000.00 PSB - AUDBMPJ The job would be a BMP job. The test job would be run in IMSE region. Note - The proc (which will be called by the job) and the job should also be present in the change-man package itself. You’ll have a test job in your PDS along with overrides to execute the program in test regions. The job would be a DLI job. The test job would be run in IMSE region. It’ll have the following steps. 1) Delete-define output and error files. 2) Use a copybook for the output layout.
