Hi Team,
I am glad to be part of this Forum. Can you please help me in the below issue ?
I have requirement to provide an exact copy of Insync file mapping to File aid.
Details are as below :
//STEP1 EXEC PGM = INSYNC , PARM =MVS
//#INDD DD DSN = input file (length = 6140 , type= VB),DISP=SHR
//#OUTDD1 DD DSN = output file ,
// DISP= (NEW,PASS),
// UNIT=SYSDA ,SPACE =(CYL,(20,20),RLSE)
//#LOG DD SYSOUT= *
//#PARM DD *
FUNCTION =EXTRACT
MULTICASE =YES
INDD= #INDD
RDW = OFF
WORKAREA= 7000
MOVE= (W+100,6140,C,1,6140,C)
WRITE = (#OUTDD1,W+100,6140)
/*
can you please help me what are the similar conditions in File aid. Here can you explain me in detail what is the significance of W+100 and how to symbolize the same in File aid.
Thank you.
Deepu
Insync to File aid conversion
Moderators: Anuj Dhawan, Moderator Group
-
- Member
- Posts: 1
- Joined: Tue Aug 12, 2014 11:52 pm
Hi all I had the same concern to I just want to know the logic behind using workarea here as W+100 is doing what ? here.I m puzzled as if it is a temporary storage the it shldnt effect the input file.YDeepu wrote:Hi Team,
I am glad to be part of this Forum. Can you please help me in the below issue ?
I have requirement to provide an exact copy of Insync file mapping to File aid.
Details are as below :
//STEP1 EXEC PGM = INSYNC , PARM =MVS
//#INDD DD DSN = input file (length = 6140 , type= VB),DISP=SHR
//#OUTDD1 DD DSN = output file ,
// DISP= (NEW,PASS),
// UNIT=SYSDA ,SPACE =(CYL,(20,20),RLSE)
//#LOG DD SYSOUT= *
//#PARM DD *
FUNCTION =EXTRACT
MULTICASE =YES
INDD= #INDD
RDW = OFF
WORKAREA= 7000
MOVE= (W+100,6140,C,1,6140,C)
WRITE = (#OUTDD1,W+100,6140)
/*
can you please help me what are the similar conditions in File aid. Here can you explain me in detail what is the significance of W+100 and how to symbolize the same in File aid.
Thank you.
Deepu
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page