Az utolsó bejegyzésben arról írtam, hogy hogy tudjuk megtudni, hogy egy adott fájlban mennyi minket érdeklő rekord van. Most egy egészen egyszerű megoldást mutatok arra, hogy megtudjuk, mennyi rekordot tartalmaz a fájlunk.

A rekord számot a NbrOfRcds tartalmazza.

Egy későbbi postban majd arra is mutatok példát, hogy hol lehet mindezt alkalmazni.

DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
 *
 **********************************************************************
 * FILES:                                                      
 **********************************************************************
 * A vizsgált fájl
FFAJL_NEVE IF   E           K DISK    INFDS(VizsgaltFajlDS)      
 **********************************************************************
 * DATA STRUCTURES:                                           
 **********************************************************************
 * Fájl információ adat struktúra
D VizsgaltFajlDS     DS                                          
D NbrOfRcds                      9B 0 OVERLAY(VizsgaltFajlDS:156)
 *
D RcdsRead        S              9  0
 **********************************************************************
 * MAINLINE:                                                           
 **********************************************************************
C                   EVAL      RcdsRead = NbrOfRcds   
 *
C                   EVAL      *INLR = *ON
C                   RETURN                

A bejegyzés trackback címe:

Kommentek:

A hozzászólások a vonatkozó jogszabályok  értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai  üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a  Felhasználási feltételekben és az adatvédelmi tájékoztatóban.