Scribd Logo
Upload

Welcome to Scribd!

  • 56 views

    Master File and Screen 2

    Uploaded by

    Molay Bairagi
    The document provides information about various COBOL concepts like data division elements, procedure division statements, file handling methods, and static vs dynamic calls. It discusses topics like reference modification, string manipulation, inspect statements, compound conditions, table processing, and searching techniques in COBOL.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Master File and Screen 2

    Uploaded by

    Molay Bairagi
    56 views3 pages
    The document provides information about various COBOL concepts like data division elements, procedure division statements, file handling methods, and static vs dynamic calls. It discusses topics like reference modification, string manipulation, inspect statements, compound conditions, table processing, and searching techniques in COBOL.

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    The document provides information about various COBOL concepts like data division elements, procedure division statements, file handling methods, and static vs dynamic calls. It discusses topics like reference modification, string manipulation, inspect statements, compound conditions, table processing, and searching techniques in COBOL.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    56 views3 pages

    Master File and Screen 2

    Uploaded by

    Molay Bairagi
    The document provides information about various COBOL concepts like data division elements, procedure division statements, file handling methods, and static vs dynamic calls. It discusses topics like reference modification, string manipulation, inspect statements, compound conditions, table processing, and searching techniques in COBOL.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 3

    FILE WORK Work SCREEN

    ABOA Accumulated history back up transactions Account Base Segment ARMB


    ABMF Masterfile Backup of batch ORG Record ARMO
    AMBI (Inactive Account Base Segment) files LOGO Record ARML
    (Customer to Base Segment Cross reference
    AMBX Usury Table ARSM
    file),
    AMCP Plan Master file each plan related details. Monitary Txn Control ARMX
    AMEDN
    General Ledger Acct ARMG
    A Archival File (NA--> Archival)
    AMJ1 Reject reentry Credit Plan Master ARMC
    AML1 NON-Mon history Intrest table ARMR
    AMLD Life to date Txn Account control Table ARMY
    AMMC Monetary Transaction Control (description) Insurance Table ARMI
    AMNK (Name Key File) Processing control Table ARMF
    AMOA Outstanding Auth file After Hour Processing AROC
    AMOS Un-statemented (Un-billed) posted monetary Online Statement history ARSD
    Plan segment each Account wise,
    AMPS Transaction Display ARTD
    how many plan each account have(10k,20k).
    AMRT Interest rate table. Transaction Selection ARTS
    AMSP Shopper frequency Statistics Monitary Batch Txn ARAT
    AMWT Warehouse monetary transactions Payment Txn History ARAP
    AMXT Balance Transfer
    AMBS Base segment Delinquency Adjustment ARDJ
    AMED Acccount segment Embosser data Freq Shopper point entry ARMH
    AMRM Relationship Management Reject Reentry ARMT
    AMNA Demographic
    AMDI Disputed items Charge Back
    AMDT Date time stamp
    ATTC Control Card
    AMFF Fruad
    AMGL General Ledger
    AMHB BaseHistory Bkp
    ATTD/T/I Trams Mon Txn/ settlement txn
    ATUD : CMS non-monetary transactions
    FBLG : FAS Log file (Tape Backup)
    66 Rename Clause Environmental Div: Config, Input/Output (file JCL info)
    77 Items can't be subdivided
    88 Condition name entry
    DATA Div: File, WS, Linkage
    ACCEPT, DISPLAY, INITIALIZE, MOVE,
    COMPUTE, GROUP MOVE using GRP
    REDEFINES, RENAMES, COMP1/2/3
    variable.
    Reference Modification: Moves a part of data of a field to another field.
      MOVE WS-1 (7:4) TO WS-2 (1:4).
      String: Used to concatenate two fields in one. Terminated by END-STRING or full-stop.
        STRING ‘WS-1,'-',WS-2,'-',WS-3 DELIMITED BY SIZE INTO WS-DATE.
     Unstring: Decontaminates. Breaking variables into parts.
      INSPECT-TALLY: used to count the number of char in a string.
      INSPECT WS-DATE TALLYING WS-COUNT FOR ALL CHARACTERS.
    INSPECT WS-DATE TALLYING WS-COUNT FOR ALL 'A'.
     INSPACT-REPLACE: Used to replace a specific char value of a string. 
    INSPECT WS-DATE REPLACING ALL 'A' BY 'X'.

    COMP1: Whatever value you give it will take 4 bytes, so Can't use PIC clause. If anyone gives more than 4 number that
    will be syntax problem.
    COMP2: Whatever value you give it will take 8 bytes, so Can't use PIC clause. If anyone gives more than 8 number that
    will be syntax problem.
    COMP3: PIC S9(n) COMP-3 VALUE 12. (N/2) +1 & (N+1)/2

    Perform Through: PERFORM PARA1 THRU PARA4.


    Perform Until: PERFORM PARA-1 UNTIL CONDITION(Given).
    Perform Times: PERFORM PARA-1 50 TIMES.
    Perform Varying: PERFORM PARA-1 VARYING A FROM 1 BY 1 UNTIL A<50.
     Go To: GO TO PARA1.

     
    01 WS-TABLE2D. 01 WS-TABLE2D.
    05 WS-A OCCURS 3 TIMES. 05 WS-A OCCURS 3 TIMES INDEXED BY I.
    10 WS- A1 PIC X(1). 10 WS-A1 PIC X(1).
    10 WS-B OCCURS 2 TIMES. 10 WS-B OCCURS 2 TIMES INDEXED BY J.
    15 WS-B1 PIC X(1). 15 WS-B1 PIC X(1).
      PROCEDURE DIVISION.
    PROCEDURE DIVISION. MOVE 'A12B34C56' TO WS-TABLE2D.
    MOVE 'A12B34C56' TO WS-TABLE2D. PERFORM PARA-A VARRYING I FROM 1 BY 1 UNTIL I>3.
      SET I J TO 1.
    'A' will go to the 1st Occurrence of WS-A1 (1) PERFORM PARA-C.
    '1' will go to the 1st Occurrence of WS-B1 (1,1) --> this is STOP RUN.
    SUBCRIPT Method to find a data. PARA-A.
    DISPLAY WS-A(I).
    PERFORM PARA-B VARRYING J FROM 1 BY 1 UNTIL J>2.
    PARA-B.
    DISPLAY WS-B(I,J).

    SEARCH WS-A.
    AT END DISPLAY 'C IS NOT FOUND'.
    WHEN WS-A(I) = 'C'.
    DISPLAY 'C IS FOUND'.
    END-SEARCH.

    File Handling: SEQ, RANDOM, DYNAMIC,


    Static call: Loaded in main load module, Large load module compiled in mode NONDYNAM, Fast, Not Flexible .
    Dynamic Call: Not loaded with main PGM loaded at the time of run, small load module, Compiled in DYNAM Mode,
    Slow, Flexible.

    You might also like