Page 2 of 3
Re: Problem with call > No active module found
Posted:
Thu Dec 27, 2012 6:36 pm
by Dashimir
A file attribute mismatch was detected. File ARQUIVO-SAIDA in program ES0111T was defined as RECORDING MODE F
and the file specified in the ASSIGN clause did not contain the same attribute.
Re: Problem with call > No active module found
Posted:
Thu Dec 27, 2012 8:15 pm
by BillyBoyo
So, in your JCL you have a dataset which is...? Not F, anyway.
We'd don't know, but it doesn't match to what you have in the program. So, you have to tell us and sort out why it is different from what your program expects.
Re: Problem with call > No active module found
Posted:
Thu Dec 27, 2012 9:22 pm
by dick scherrer
Hello,
Suggest you post the results of the 3.2 information for the dataset as well and the SELECT and FD for the file from the program if the difference has not yet been determined.
Re: Problem with call > No active module found
Posted:
Fri Dec 28, 2012 5:12 pm
by Dashimir
General Data Current Allocation
Management class . . : MCDES001 Allocated cylinders : 11
Storage class . . . : SCDES001 Allocated extents . : 2
Volume serial . . . : DES008
Device type . . . . : 3390
Data class . . . . . : DCDES001
Organization . . . : PO Current Utilization
Record format . . . : FB Used cylinders . . : 11
Record length . . . : 80 Used extents . . . : 2
Block size . . . . : 27920
1st extent cylinders: 2
Secondary cylinders : 9 Dates
Data set name type : PDS Creation date . . . : 2012/11/28
Referenced date . . : 2012/12/27
Expiration date . . : ***None***
SELECT ARQUIVO-SAIDA ASSIGN TO ES0111T.
FD ARQUIVO-SAIDA
RECORD 394
RECORDING MODE IS F
LABEL RECORD IS OMITTED.
01 REG-SAIDA PIC X(394).
execution job
//DELETE01 DD DISP=(MOD,DELETE),UNIT=SYSALLDA,SPACE=(TRK,(1,1)),
// DSN=DES.VA.SAIDA.ES0111T
Re: Problem with call > No active module found
Posted:
Fri Dec 28, 2012 5:25 pm
by Dashimir
I can delet the file and send it again just dont know how to change the format to fb and the record lenght to 150.
General Data Current Allocation
Management class . . : MCDES001 Allocated blocks . : 16
Storage class . . . : SCDES001 Allocated extents . : 2
Volume serial . . . : DES003
Device type . . . . : 3390
Data class . . . . . : DCDES001
Organization . . . : PS Current Utilization
Record format . . . : VB Used blocks . . . . : 15
Record length . . . : 255 Used extents . . . : 2
Block size . . . . : 6233
1st extent blocks . : 8
Secondary blocks . : 24 Dates
Data set name type : Creation date . . . : 2012/12/28
SMS Compressible. . : NO Referenced date . . : 2012/12/28
Expiration date . . : ***None***
Re: Problem with call > No active module found
Posted:
Fri Dec 28, 2012 5:39 pm
by Akatsukami
OK,this seems to make no sense at all. What do you receive the data set with and what are you trying to accomplish when you have it?
Re: Problem with call > No active module found
Posted:
Fri Dec 28, 2012 5:51 pm
by Dashimir
[quote="Dashimir"]I can delet the file and send it again just dont know how to change the format to fb and the record lenght to 150.
General Data Current Allocation
Management class . . : MCDES001 Allocated blocks . : 16
Storage class . . . : SCDES001 Allocated extents . : 2
Volume serial . . . : DES003
Device type . . . . : 3390
Data class . . . . . : DCDES001
Organization . . . : PS Current Utilization
Record format . . . : VB Used blocks . . . . : 15
Record length . . . : 255 Used extents . . . : 2
Block size . . . . : 6233
1st extent blocks . : 8
Secondary blocks . : 24 Dates
Data set name type : Creation date . . . : 2012/12/28
SMS Compressible. . : NO Referenced date . . : 2012/12/28
Expiration date . . : ***None***
in the program :
FD ARQUIVO-ENTRADA
RECORD 150
RECORDING MODE IS F
LABEL RECORD IS OMITTED.
01 REG-ENTRADA.
05 COD-REGISTRO PIC X(01).
05 ENTRADA PIC X(149).
Record format . . . : VB and Record length . . . : 255 Are wrong right ? that is why i get (IGZ0035S There was an unsuccessful OPEN or CLOSE of file ES0111T) right ? I want to edit or resent the file with the format fb and lenght 150 but i dont know how
Re: Problem with call > No active module found
Posted:
Fri Dec 28, 2012 5:53 pm
by BillyBoyo
Agreed, no sense. 150 or 394? Or 255? 80? FB, VB? PS, PO?
RECFM=FB,LRECL=150 will get you a Fixed, Blocked, file with an LRECL of 150 - hopefully you will get, for free, an optimal blocksize allocated by default.
Re: Problem with call > No active module found
Posted:
Fri Dec 28, 2012 5:57 pm
by Akatsukami
Dashimir wrote:Record format . . . : VB and Record length . . . : 255 Are wrong right ? that is why i get (IGZ0035S There was an unsuccessful OPEN or CLOSE of file ES0111T) right ? I want to edit or resent the file with the format fb and lenght 150 but i dont know how
I repeat: What do you receive the data set with and what are you trying to accomplish when you have it?
Re: Problem with call > No active module found
Posted:
Fri Dec 28, 2012 5:58 pm
by Dashimir
150 input file and 394 output file , both fb i think