Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________          OLDSBI 
 FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
        *************** Beginning of data ************************************* 
     A*  PHYSICAL FILE FOR THE SALES BY ITEM FILE - SPRSBI
     A*.........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
     A                                      UNIQUE
     A          R OLDREC                    TEXT('SBI RECORD')
     A
     A            ITMNO          5          TEXT('ITEM NUMBER')
     A            CURSLS         9S 2       TEXT('CUR. GROSS SALES')
     A            CURSLD         6S 0       TEXT('CUR. NO. SOLD')
     A            CURPRF         9S 2       TEXT('CUR. PROFIT')
     A            CURRET         6S 0       TEXT('CUR. NO. RETURNED')
     A            CURPUR         6S 0       TEXT('CUR. NO. PURCHASED')
     A            JANSLS         9S 2       TEXT('JAN. GROSS SALES')
     A            JANSLD         6S 0       TEXT('JAN. NO. SOLD')
     A            JANPRF         9S 2       TEXT('JAN. PROFIT')
     A            JANRET         6S 0       TEXT('JAN. NO. RETURNED')
     A            JANPUR         6S 0       TEXT('JAN. NO. PURCHASED')
     A            FEBSLS         9S 2       TEXT('FEB. GROSS SALES')
     A            FEBSLD         6S 0       TEXT('FEB. NO. SOLD')
     A            FEBPRF         9S 2       TEXT('FEB. PROFIT')
     A            FEBRET         6S 0       TEXT('FEB. NO. RETURNED')
     A            FEBPUR         6S 0       TEXT('FEB. NO. PURCHASED')
     A            MARSLS         9S 2       TEXT('MAR. GROSS SALES')
     A            MARSLD         6S 0       TEXT('MAR. NO. SOLD')
     A            MARPRF         9S 2       TEXT('MAR. PROFIT')
     A            MARRET         6S 0       TEXT('MAR. NO. RETURNED')
     A            MARPUR         6S 0       TEXT('MAR. NO. PURCHASED')
     A            APRSLS         9S 2       TEXT('APR. GROSS SALES')
     A            APRSLD         6S 0       TEXT('APR. NO. SOLD')
     A            APRPRF         9S 2       TEXT('APR. PROFIT')
     A            APRRET         6S 0       TEXT('APR. NO. RETURNED')
     A            APRPUR         6S 0       TEXT('APR. NO. PURCHASED')
     A            MAYSLS         9S 2       TEXT('MAY GROSS SALES')
     A            MAYSLD         6S 0       TEXT('MAY NO. SOLD')
     A            MAYPRF         9S 2       TEXT('MAY PROFIT')
     A            MAYRET         6S 0       TEXT('MAY NO. RETURNED')
     A            MAYPUR         6S 0       TEXT('MAY NO. PURCHASED')
     A            JUNSLS         9S 2       TEXT('JUN. GROSS SALES')
     A            JUNSLD         6S 0       TEXT('JUN. NO. SOLD')
     A            JUNPRF         9S 2       TEXT('JUN. PROFIT')
     A            JUNRET         6S 0       TEXT('JUN. NO. RETURNED')
     A            JUNPUR         6S 0       TEXT('JUN. NO. PURCHASED')
     A            JULSLS         9S 2       TEXT('JUL. GROSS SALES')
     A            JULSLD         6S 0       TEXT('JUL. NO. SOLD')
     A            JULPRF         9S 2       TEXT('JUL. PROFIT')
     A            JULRET         6S 0       TEXT('JUL. NO. RETURNED')
     A            JULPUR         6S 0       TEXT('JUL. NO. PURCHASED')
     A            AUGSLS         9S 2       TEXT('AUG. GROSS SALES')
     A            AUGSLD         6S 0       TEXT('AUG. NO. SOLD')
     A            AUGPRF         9S 2       TEXT('AUG. PROFIT')
     A            AUGRET         6S 0       TEXT('AUG. NO. RETURNED')
     A            AUGPUR         6S 0       TEXT('AUG. NO. PURCHASED')
     A            SEPSLS         9S 2       TEXT('SEP. GROSS SALES')
     A            SEPSLD         6S 0       TEXT('SEP. NO. SOLD')
     A            SEPPRF         9S 2       TEXT('SEP. PROFIT')
     A            SEPRET         6S 0       TEXT('SEP. NO. RETURNED')
     A            SEPPUR         6S 0       TEXT('SEP. NO. PURCHASED')
     A            OCTSLS         9S 2       TEXT('OCT. GROSS SALES')
     A            OCTSLD         6S 0       TEXT('OCT. NO. SOLD')
     A            OCTPRF         9S 2       TEXT('OCT. PROFIT')
     A            OCTRET         6S 0       TEXT('OCT. NO. RETURNED')
     A            OCTPUR         6S 0       TEXT('OCT. NO. PURCHASED')
     A            NOVSLS         9S 2       TEXT('NOV. GROSS SALES')
     A            NOVSLD         6S 0       TEXT('NOV. NO. SOLD')
     A            NOVPRF         9S 2       TEXT('NOV. PROFIT')
     A            NOVRET         6S 0       TEXT('NOV. NO. RETURNED')
     A            NOVPUR         6S 0       TEXT('NOV. NO. PURCHASED')
     A            DECSLS         9S 2       TEXT('DEC. GROSS SALES')
     A            DECSLD         6S 0       TEXT('DEC. NO. SOLD')
     A            DECPRF         9S 2       TEXT('DEC. PROFIT')
     A            DECRET         6S 0       TEXT('DEC. NO. RETURNED')
     A            DECPUR         6S 0       TEXT('DEC. NO. PURCHASED')
     A            DELCOD         1          TEXT('DELETE CODE')
     A
     A          K ITMNO