MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

S0C1 in FILEAID

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
coolman
Intermediate


Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US

PostPosted: Wed Aug 04, 2004 11:34 am    Post subject: S0C1 in FILEAID Reply with quote

I believe this is simple. Im trying to move some information in a short record from a VB file thru fileaid and it abends with S0C1. Do we have parms in fileaid similar to VLSHRT/VLSCMP which can help me get through this issue.

Code:

//S1    EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*                                   
//SYSLIST  DD SYSOUT=*                                   
//DD01     DD DSN=&&OLDFILE,                             
//          DISP=(OLD,PASS)                           
//DD01O    DD DSN=&&NEWFILE,                             
//            DISP=(,CATLG),                   
//            UNIT=SMS,                                 
//            DCB=*.DD01     
//            SPACE=(CYL,(1,1),RLSE)             
//SYSIN    DD *
$$DD01 COPY IF=(1,EQ,C'12345'),MOVE=(02,0,44)
/*
//




Cheers,
Coolman
________
essential vaaapp vaporizer


Last edited by coolman on Sat Feb 05, 2011 1:38 am; edited 1 time in total
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Wed Aug 04, 2004 11:40 am    Post subject: Reply with quote

coolman,

Post the error messages from sysprint or syslist

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
coolman
Intermediate


Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US

PostPosted: Wed Aug 04, 2004 11:54 am    Post subject: Reply with quote

Kolusu,

This is all I get. However, If i change the i/p file to contain more than 27 chars, the job just goes thro fine

Code:

F I L E - A I D  V8.7.1  04 - AUG - 2004   02.11.59         *CONTROL CARD LIST*
INSTALLATION                          000656  RELEASE 10/19/00
     PROGRAM AND ALL MATERIAL COPYRIGHT 1980,2000 BY COMPUWARE CORPORATION     
1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...8
                                                                               
DD01     DSN=SYS04217.T021126.RA000.E038439P.OLDFILE.H02 OPENED AS PS,         
             RECFM=VB,LRECL=155,BLKSIZE=3000,VOL=BAT738                       
DD01O    DSN=SYS04217.T021126.RA000.E038439P.NEWFILE.H02 OPENED AS PS,         
             RECFM=VB,LRECL=155,BLKSIZE=3000,VOL=BAT7A0                       
$$DD01 COPY IF=(1,EQ,C'12345'),MOVE=(02,0,44)                             0000010



Cheers,
Coolman
________
vaporgenie vaporizer


Last edited by coolman on Sat Feb 05, 2011 1:38 am; edited 1 time in total
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Wed Aug 04, 2004 12:19 pm    Post subject: Reply with quote

Coolman,

If your input file is VB , you need to consider the RDW and also pad the short records with spaces/binary/astericsk.

try this control card.
Code:

$$DD01 COPY RDW=2,PADCHAR=C'*',IF=(1,EQ,C'12345'),MOVE=(02,0,44) 



The RDW (Record Descriptor Word) parameter controls the inclusion or exclusion of the RDW for variable-length record processing. RDW permits logical access to a variable-length record without accounting for the four-byte system RDW at the beginning of each record. The syntax of the RDW parameter is:
Code:

 RDW=n 

   n:  Value of 0, 1, 2, or 3, which are defined as:

   0    (Default) Includes the RDW during record processing and displays it
        on output.

   1    Includes the RDW during record processing and does not display it on
        output.

   2    Does not include the RDW during record processing but displays it on
        output.

   3    Does not include the RDW during record processing and does not
        display it on output.

   Notes:

   1. The RDW parameter must be coded before any IF, EDIT, REPL, or MOVE
      parameters in the control card.

   2. When the RDW is not displayed on output (RDW=1 or 3), and no output
      records are created, the MOVE parameter output location should
      reference location 5 first.  The MOVE parameter may be used with the
      DUMP, LIST, or PRINT printing functions to show only portions of a
      record.  Since no actual output record is created with the printing
      functions, File-AID assumes that the first four bytes of the output
      area are the RDW and does not print them.



The PADCHAR parameter specifies the value to use for padding. Specify this parameter only once per function. The PAD value initializes output areas when creating records using the MOVE parameter. The initialization is performed prior to the first record being read and only at that time.

Code:

Padding also occurs when:

   o Record length decreases during EDIT or MOVE processing
   o A record is copied to a larger fixed-length record
   o Record length is updated and increased.

   The syntax of the PADCHAR parameter is:

      PADCHAR={C'c' }
              {X'nn'}

   C:  The c may be any single character-data value.

   X:  The nn may be any valid two-digit hexadecimal-data value.

   The default value for PADCHAR is X'00'.


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
coolman
Intermediate


Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US

PostPosted: Wed Aug 04, 2004 1:45 pm    Post subject: Reply with quote

Kolusu,

Works a treat. Thank you so much. BTW, where do you get this info on RDW?

Cheers,
Coolman
________
Toyota Caldina history


Last edited by coolman on Sat Feb 05, 2011 1:38 am; edited 1 time in total
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Wed Aug 04, 2004 1:48 pm    Post subject: Reply with quote

coolman,

Quote:

where do you get this info on RDW?


File-AID Batch Reference Manual
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group