Datacom

  • 1.  Require help with ftp of Datacom sequential file.

    Posted Apr 26, 2015 01:46 PM

    I am New to Datacom. We have developed an Ideal Batch interface to load data from Datacom table to the below defined sequential data view file. Further we tried to FTP the physical File, but running into FTP error, Ftp is getting down with wrong record length. What would be the record length we need to consider for the FTP to work. We have considered 520 as the record length as per the DVW definition.

    -------------------------------------------------------------------------------

    IDEAL: DISPLAY DATAVIEW      DVW AAA-SEQ-F-DVW (002) PROD SYS: SAT   DISPLAY

                                                                                 

    COMMND SEQ LEVEL FIELD NAME           T I CH/DG OCCUR K VALUE/REDEF/DEP ON    

    ====== ================================ T O P =================================

    000001 CATALOGED 05/11/98 08:46      SEQUENTIAL UPD=YES FILENAME AAABNF9      

    000002           DEVICE=DISK         RECSIZE= 0520      BLKSIZE= 2600         

    000003   1 1     AAA-SEQ-F-DVW                                             

    000004   2  2     AAA-CODE           X       8                               

    000005   3  2     VERSION-NO          N Z     2                               

    000006   4  2     DATE                X       8                               

    000007   5  2     AAA-NAME-1         X      33                               

    000008   6  2     AAA-NAME-2         X      33                               

    000009   7  2     AAA-ADDRESS-1      X      33                               

    000010   8  2     AAA-ADDRESS-2      X      33                               

    000011   9  2     AAA-ADDRESS-3      X      33                               

    000012  10  2     AAA-ADDRESS-4      X      33                               

    000013  11  2     AAA-ADDRESS-5      X      33                               

    000014  12  2     AAA-AC-NO          X      33                               

    000015  13  2     AAA-BK-NAME-1      X      33                               

    000016  14  2     AAA-BK-NAME-2      X      33                               

    000017  15  2     AAA-BK-ADR-1       X      33                               

    000018  16  2     AAA-BK-ADR-2       X      33                               

    000019  17  2     AAA-BK-ADR-3       X      33                               

    000020  18  2     AAA-BK-ADR-4       X      33                               

    000021  19  2     AAA-BK-ADR-5       X      33                               

    000022  20  2     AAA-BNK-CTY                                                

    000023  21   3     AAA-BK-CODE       X       4                               

    000024  22   3     AAA-BK-CITY       X       3                               

    ====== ============================= B O T T O M ==============================


    Job Z/VSE Job executed is

     

    * $$ JOB JNM=TSAAJ004,USER='TEST ',CLASS=0,DISP=D                       

    * $$ PRT class="Z"                                                       

    * $$ LST LST=X'01E',CLASS=L,RBS=0                                      

    * $$ LST LST=X'02E',CLASS=L,RBS=0,COPY=1,DISP=D                        

    * $$ LST LST=X'03E',CLASS=L,RBS=0                                      

    //   JOB         TSAAJ004                                              

    *                                                                      

    //   ASSGN     SYS067,DISK,VOL=TEST04,SHR                              

    //   DLBL      AAABNF9,'AAA-SEQ-F-DVW',1,SD                         

    //   EXTENT    SYS067,TEST04,,,1,10                                    

    * $$ SLI JOBS.IDLBACHT                                                     

    SEL SYS SAT                                                            

    SET RUN FILETABLE DBTST5                                             

    RUN TSAPP004 V LAST                                                    

    OFF                                                                    

    /*                                                                     

    // EXEC LISTLOG                                                        

    /&                                                                     

    * $$ EOJ                                   



  • 2.  Re: Require help with ftp of Datacom sequential file.
    Best Answer

    Broadcom Employee
    Posted Apr 27, 2015 02:50 AM

    Hi Nagasamba,

     

    How does your FTP JCL  look like ?

    You need : 

    Lsite recfm fb blksize 2600 recsize 520 .

    ...

    PUT filename, SAM,FB,520,2600

     

    Regards,

    Karina.