Insync to File aid conversion
Posted: Tue Aug 12, 2014 6:23 pmHi 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
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