Problem with call > No active module found



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

Re: Problem with call > No active module found

Postby Dashimir » Thu Dec 27, 2012 6:36 pm

 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.


 
Dashimir
 
Posts: 42
Joined: Wed Dec 26, 2012 7:27 pm
Has thanked: 2 times
Been thanked: 0 time

Re: Problem with call > No active module found

Postby BillyBoyo » Thu Dec 27, 2012 8:15 pm

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.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: Problem with call > No active module found

Postby dick scherrer » Thu Dec 27, 2012 9:22 pm

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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: Problem with call > No active module found

Postby Dashimir » Fri Dec 28, 2012 5:12 pm

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                                 
 
Dashimir
 
Posts: 42
Joined: Wed Dec 26, 2012 7:27 pm
Has thanked: 2 times
Been thanked: 0 time

Re: Problem with call > No active module found

Postby Dashimir » Fri Dec 28, 2012 5:25 pm

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***

 
Dashimir
 
Posts: 42
Joined: Wed Dec 26, 2012 7:27 pm
Has thanked: 2 times
Been thanked: 0 time

Re: Problem with call > No active module found

Postby Akatsukami » Fri Dec 28, 2012 5:39 pm

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?
"You have sat too long for any good you have been doing lately ... Depart, I say; and let us have done with you. In the name of God, go!" -- what I say to a junior programmer at least once a day
User avatar
Akatsukami
Global moderator
 
Posts: 1058
Joined: Sat Oct 16, 2010 2:31 am
Location: Bloomington, IL
Has thanked: 6 times
Been thanked: 51 times

Re: Problem with call > No active module found

Postby Dashimir » Fri Dec 28, 2012 5:51 pm

[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
Dashimir
 
Posts: 42
Joined: Wed Dec 26, 2012 7:27 pm
Has thanked: 2 times
Been thanked: 0 time

Re: Problem with call > No active module found

Postby BillyBoyo » Fri Dec 28, 2012 5:53 pm

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.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: Problem with call > No active module found

Postby Akatsukami » Fri Dec 28, 2012 5:57 pm

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?
"You have sat too long for any good you have been doing lately ... Depart, I say; and let us have done with you. In the name of God, go!" -- what I say to a junior programmer at least once a day
User avatar
Akatsukami
Global moderator
 
Posts: 1058
Joined: Sat Oct 16, 2010 2:31 am
Location: Bloomington, IL
Has thanked: 6 times
Been thanked: 51 times

Re: Problem with call > No active module found

Postby Dashimir » Fri Dec 28, 2012 5:58 pm

150 input file and 394 output file , both fb i think
Dashimir
 
Posts: 42
Joined: Wed Dec 26, 2012 7:27 pm
Has thanked: 2 times
Been thanked: 0 time

PreviousNext

Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post