Scribd
Upload
97 views2 pages

JCL Assignments 2

1. Create a sequential dataset with record length 90 and format FB called <HLQ>.GET738.EMPLOYEE.DETAILS and load records manually. 2. Write a cataloged procedure CTPRCTRY to: - Delete output datasets - Create output dataset <HLQ>.GET738.OUTPUT.DS like the input - Copy records from input to output using IEBGENER - Copy output to temporary dataset TEMP01 - Add titles to TEMP01 and print to spool 3. Call CTPRCTRY to: - Set output dataset to <HLQ>.GET738.FORMATED - Set input of step 3 to <HLQ>.GET738.EMPLOY

Uploaded by

aparna
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
97 views2 pages

JCL Assignments 2

1. Create a sequential dataset with record length 90 and format FB called <HLQ>.GET738.EMPLOYEE.DETAILS and load records manually. 2. Write a cataloged procedure CTPRCTRY to: - Delete output datasets - Create output dataset <HLQ>.GET738.OUTPUT.DS like the input - Copy records from input to output using IEBGENER - Copy output to temporary dataset TEMP01 - Add titles to TEMP01 and print to spool 3. Call CTPRCTRY to: - Set output dataset to <HLQ>.GET738.FORMATED - Set input of step 3 to <HLQ>.GET738.EMPLOY

Uploaded by

aparna
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

ISPF

1. Create a sequential dataset using ISPF with record length 90 and record format FB. Name of the
dataset should be <HLQ>.GET738.EMPLOYEE.DETAILS

2. Load the records manually as given below.

PSID FIRST NAME LAST NAME MOBILE EMAIL ID


NUMBER
9(08) X(15) X(15) 9(10) X(30)
10653750 ANJALI N 9876543210 [email protected]
10653751 ANJANA TR 9876543211 [email protected]
10653752 ANUSHA VINOD 9876543212 [email protected]
10653753 APARNA BHAT 9876543213 [email protected]
10653754 BHARATH KUMAR 9876543214 [email protected]
10653755 ASHWINI BHAT 9876543215 [email protected]
10653756 GAGAN NAGARAJ 9876543216 [email protected]
10653757 GEETHA G 9876543217 [email protected]
10653758 KAVYA KUMARASWAMY 9876543218 [email protected]
10653759 KIRTI KASHYAP 9876543219 [email protected]
10653760 SINDHU MK 9876543220 [email protected]
10653761 MANAS KASHYUP 9876543221 [email protected]
10653762 PRATIKSHA SUMAN 9876543222 [email protected]
10653763 PRIYA P 9876543223 [email protected]
10653764 PRIYANKA SOMAN 9876543224 [email protected]

Note: There is a blank space between the fields. DO NOT enter the field name and data type. Enter only
the records.

JCL

3. Write a cataloged procedure(Name of the member must be CTPRCTRY) with the following steps

Step 1: Delete all the output datasets. Use symbolic as OUTDS

Step 2: Create an output dataset with lrecl=90 and recfm=fb and use symbolic as OUTDS for DSN

Step 3: Use IEBGENER to copy records from SYSUT1 to SYSUT2. Keep SYSUT1 as NULLFILE and use a
symbolic OUTDS for SYSUT2

Step 4: Use output of STEP 3 as input of STEP 4 and copy records into a temporary dataset TEMP01

Step 5: Now use temporary dataset TEMP01 as input and add title for each field as shown below and
print the output in SPOOL

PSID FIRST NAME LAST NAME MOBILE NUMBER EMAIL ID


Xxxxx Xxxxxx Xxxxxx Xxxxxx xxxxxx
4. Call the cataloged procedure CTPRCTRY.
a) The value for OUTDS should be <HLQ>.GET738.OUTPUT.DS with the attributes like that of
input dataset. (Use LIKE parameter).

b) Override the output dataset for procedure step 4 as <HLQ>.GET738.FORMATED and create it
with LRECL=90 and RECFM=FB

c) Override SYSUT1 of procedure step 3 and replace NULLFILE with input dataset name
<HLQ>.GET738.EMPLOYEE.DETAILS

You might also like