//UUUNM02  JOB (SDUDSTORPUUU,MUUU),' FLOW  F2P    ',TIME=(0,55),
//             MSGLEVEL=(1,1),NOTIFY=UUU,PRTY=2
/*ROUTE  PRINT HOLD
/*JOBPARM LINES=10
//*----------------------------------------------------------------*
//*   STORET.HELP.FLOW.LIBRARY(F2P)                                *
//*   THIS PL1 PROGRAM READS THE SUMMARY GAGE FILE AND WRITES      *
//*   A SUBSET OF IT TO A NEW FILE.  THE USER NEEDS TO CHANGE THE  *
//*   JOBCARDS, THE DATA SET NAME  OF THE OUTPUT FILE AND THE      *
//*   SELECTION CRITERIA( IN THIS CASE THE STATE CODE FOR NM.      *
//*----------------------------------------------------------------*
//GAGEPPP EXEC PLIXCG,PARM.PLI='AG,A,X,NOSTMT,NEST,OF,MI(''*'')'        00000050
//PLI.SYSIN DD *                                                        00000060
 GAGEPPP:PROC OPTIONS(MAIN);                                            00000070
                                                                        00000080
 DCL EOF CHAR(1) INIT('0'),                                             00000090
     NUM FIXED BIN(31) INIT(0),                                         00000100
     GF INPUT FILE RECORD SEQUENTIAL,                                   00000110
     (LISTF) OUTPUT FILE;                                               00000120
                                                                        00000130
 DCL 1 GFREC,
       2 STAID CHAR(15),
       2 HUC PIC '(8)9',
       2 LOC_NAME CHAR(48),
       2 LAT CHAR(6),
       2 LONG CHAR(7),
       2 STATE CHAR(2),
       2 COUNTY CHAR(3),
       2 SITE CHAR(2),
       2 F_YR PIC '(4)9',
       2 L_YR PIC '(4)9',
       2 DRAIN_AR FLOAT(6),
       2 CONT_DR FLOAT(6),
       2 WELL_DP FLOAT(6),
       2 DATUM FIXED DEC(7,2);

 DCL 1 LISTREC,
       2 STATE CHAR(2),
       2 FILLER2 CHAR(1) INIT(','),
       2 STAID CHAR(15),
       2 FILLER3 CHAR(1) INIT(','),
       2 COUNTY CHAR(3),
       2 FILLER4 CHAR(2) INIT(',"'),
       2 LOC_NAME CHAR(48),
       2 FILLER5 CHAR(2) INIT('",'),
       2 LAT CHAR(6),
       2 FILLER6 CHAR(1) INIT(','),
       2 LONG CHAR(7),
       2 FILLER7 CHAR(1) INIT(','),
       2 HUC CHAR(8),
       2 FILLER8 CHAR(1) INIT(','),
       2 F_YR CHAR(4),
       2 FILLER9 CHAR(1) INIT(','),
       2 L_YR CHAR(4),
       2 FILLE10 CHAR(1) INIT(','),
       2 DRAIN_AR PIC '9999999V.99',
       2 FILLE11 CHAR(1) INIT(','),
       2 CONT_DR PIC '9999999V.99',
       2 FILLE12 CHAR(1) INIT(','),
       2 DATUM FIXED PIC '999999V.99',
       2 FILL13 CHAR(1) INIT(',');


 ON ENDFILE(GF) EOF = '1';
 READ FILE(GF) INTO(GFREC);

 DO WHILE(EOF = '0');
       LISTREC = GFREC, BY NAME;
       /*  ---------------------------------------------------*/
       /*  ------ONLY WRITE TO FILE WHEN STATE CODE IS 35  ---*/
       /*  ---------------------------------------------------*/
       IF LISTREC.STATE= '35' THEN DO;
             PUT SKIP FILE(LISTF) EDIT(LISTREC)(A);
             NUM = NUM + 1;        END;

       READ FILE(GF) INTO(GFREC);
  END;                                                                  00000940
                                                                        00000950
 PUT SKIP(2) EDIT('END OF PROCESSING')(A);                              00000970
                                                                        00000980
 END GAGEPPP;                                                           00000990
/*                                                                      00001000
//GO.GF DD DSN=STORET.HELP.FLOW.GAGE.SUMMARY,DISP=SHR                   00001010
//GO.SYSPRINT DD SYSOUT=A                                               00001010
//*------------OUTPUT FILE ----------------------------------------*
//GO.LISTF DD DSN=UUUSDUD.NMGAGES.FILE02,SPACE=(TRK,(400,200),RLSE),    00001020
//            DISP=(NEW,CATLG,DELETE),                                  00001020
//            DCB=(RECFM=FB,LRECL=141,BLKSIZE=1410)                     00001020
