//WW0100A1 JOB (WX11008M1H1040X,NMC-OPS),'NMC-OPS',REGION=1500K,TIME=1, 00000010 // MSGCLASS=R 00000020 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00000030 //* FOLLOWING STREAM CREATED WEDNESDAY FEB 28, 1996 - 0823 06.86 LST 00000040 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00000050 //*MAIN CLASS=NMC2,ORG=LOCAL 00000060 //* 00000070 //* PUBLISH START TIME OF NET AND PRINT OPERATOR MESSAGES 00000080 //* 00000090 //*NET ID=WN00ZNMC,HC=1 00000100 //SCHEDCHK EXEC PGM=SCHEDCHK,COND=EVEN,PARM='2330' 00000110 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00000120 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00000130 //FT06F001 DD DSN=&&TEMP06,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408), 00000140 // UNIT=SYSWK,SPACE=(CYL,(4,2)),DISP=(NEW,PASS) 00000150 //* 00000160 //LOGCHKPT EXEC PGM=LOGPOINT,PARM='BNMC0' 00000170 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00000180 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00000190 //FT06F001 DD DUMMY 00000200 //FT10F001 DD DSN=NMC.PROD.LOG.POINTERS,DISP=SHR 00000210 //* 00000220 //NETSTART EXEC PGM=NSTRSTP,COND=EVEN,PARM='WW00ZNMCOMCSSTRT0000' 00000230 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00000240 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00000250 //FT01F001 DD DSN=NMC.PROD.OPRMSG.GEN,DISP=SHR 00000260 //FT01F002 DD DUMMY 00000270 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00000280 //* 00000290 //* UPDATE AND ZERO GES FILE 00000300 //* 00000310 //INGESV EXEC PGM=INGESV 00000320 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00000330 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00000340 //FT05F001 DD * 00000350 00255GES B300Z03WASHINGTON-112 00000360 /* 00000370 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00000380 //OLDGES DD DSN=NMC.PROD.VGES.T12Z,DISP=SHR 00000390 //NEWGES DD DSN=NMC.PROD.VGES.T00Z,DISP=SHR 00000400 //* 00000410 //CONDTEST EXEC PGM=ABEND,PARM='INGESV',COND=(0,EQ,INGESV) 00000420 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00000430 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00000440 //* 00000450 //MAKEDATV EXEC PGM=MAKEDATV,COND=EVEN 00000460 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00000470 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00000480 //DATE DD DSN=NMC.PROD.DATE,DISP=SHR 00000490 //GES DD DSN=NMC.PROD.VGES.T00Z,DISP=SHR 00000500 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00000510 //* 00000520 //* OBTAIN NEEDED GES FIELDS 00000530 //* 00000540 //STRGESV EXEC PGM=STRGESV 00000550 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00000560 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00000570 //FT05F001 DD DSN=NMC.PROD.JCDATA(STRGESB),LABEL=(,,,IN),DISP=SHR 00000580 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00000590 //ANL DD DSN=NMC.PROD.VANL.T12Z.AVN,DISP=SHR 00000600 //ANL5 DD DSN=NMC.PROD.VANL.T12Z.FNL,DISP=SHR 00000610 //F00 DD DSN=NMC.PROD.VF00.T12Z.AVN,DISP=SHR 00000620 //F12 DD DSN=NMC.PROD.VF12.T12Z.AVN,DISP=SHR 00000630 //F24 DD DSN=NMC.PROD.VF24.T12Z.AVN,DISP=SHR 00000640 //F36 DD DSN=NMC.PROD.VF36.T12Z.AVN,DISP=SHR 00000650 //GES DD DSN=NMC.PROD.VGES.T12Z,DISP=SHR 00000660 //NEWGES DD DSN=NMC.PROD.VGES.T00Z,DISP=SHR 00000670 //VLF36XP DD DSN=NMC.PROD.VLF36XP.T12Z.ETA,DISP=SHR 00000680 //* 00000690 //COMEND EXEC PGM=CONJCL,COND=((4,GE,STRGESV),EVEN), 00000700 // PARM='NWS,*****PRODUCTION FAILURE TRYING TO PREPARE GES FILE' 00000710 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00000720 //* 00000730 //COMEND EXEC PGM=CONJCL,COND=((4,GE,STRGESV),EVEN), 00000740 // PARM='NWS,*****PRODUCTION FAILURE TRYING TO PREPARE GES FILE' 00000750 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00000760 //* 00000770 //COMEND EXEC PGM=CONJCL,COND=((4,GE,STRGESV),EVEN), 00000780 // PARM='NWS,*****PRODUCTION FAILURE TRYING TO PREPARE GES FILE' 00000790 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00000800 //* 00000810 //* STEP TO ZERO AND PREPARE EMERGENCY GES FILE 00000820 //* 00000830 //ZERO EXEC PGM=ZROFLV,COND=(5,LT,STRGESV) 00000840 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00000850 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00000860 //FT05F001 DD * 00000870 OUTFIL 000255OUTFILB3000000000000000000000000WASHINGTON0000-1 00000880 /* 00000890 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00000900 //FT10F001 DD DSN=NMC.PROD.DATE(T00Z),DISP=SHR,LABEL=(,,,IN) 00000910 //OUTFIL DD DSN=NMC.PROD.VWRKSPC1.NMC,DISP=SHR 00000920 //* 00000930 //* SAVE GOOD GES FILE FOR POSSIBLE RECOVERY 00000940 //* 00000950 //CPYTGESS EXEC PGM=COPYVSAM,COND=((5,LT,STRGESV),(0,NE,ZERO)) 00000960 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00000970 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00000980 //INFILE DD DSN=NMC.PROD.VGES.T00Z,DISP=SHR 00000990 //OUTFIL DD DSN=NMC.PROD.VWRKSPC1.NMC,DISP=SHR 00001000 //FT05F001 DD * 00001010 INFILE 000255OUTFIL 000255 00001020 /* 00001030 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00001040 //* 00001050 //* COPY FROM TEMP GES TO HOLD FILE 00001060 //* 00001070 //CPYHGESS EXEC PGM=COPYVSAM,COND=((5,LT,STRGESV),(0,NE,CPYTGESS)) 00001080 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00001090 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00001100 //FT05F001 DD * 00001110 INFILE 000255OUTFIL 000255 00001120 /* 00001130 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00001140 //INFILE DD DSN=NMC.PROD.VWRKSPC1.NMC,DISP=SHR 00001150 //OUTFIL DD DSN=NMC.HOLD.VGES.T00Z,DISP=SHR 00001160 //* 00001170 //* 00Z 00001180 //* 00001190 //ZROADPLA EXEC PGM=ZEROADP,COND=EVEN 00001200 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00001210 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00001220 //FT05F001 DD * 00001230 ADPUPAC2999999999999WASHINGTON00151608 00001240 UPABOGC299999999 WASHINGTON00161608 00001250 AIRCFTC299999999 WASHINGTON00171608 00001260 SFCBOGC299999999 WASHINGTON00181608 00001270 ADPSFCC299999999 WASHINGTON00201608 00001280 SFCSHPC299999999 WASHINGTON00211608 00001290 SFCHLYC299999999 WASHINGTON00221608 00001300 SFCHLYC299999999 WASHINGTON00231608 00001310 SFCHLYC299999999 WASHINGTON00241608 00001320 SFCHLYC299999999 WASHINGTON00251608 00001330 /* 00001340 //FT06F001 DD DUMMY 00001350 //FT15F001 DD DSN=NMC.PROD.ADPUPA.T00Z.CUR,DISP=SHR 00001360 //FT16F001 DD DSN=NMC.PROD.UPABOG.T00Z.CUR,DISP=SHR 00001370 //FT17F001 DD DSN=NMC.PROD.AIRCFT.T00Z.CUR,DISP=SHR 00001380 //FT18F001 DD DSN=NMC.PROD.SFCBOG.T00Z.CUR,DISP=SHR 00001390 //* FORMERLY LFMDATSV 00001400 //FT20F001 DD DSN=NMC.PROD.ADPSFC.T00Z.CUR,DISP=SHR 00001410 //FT21F001 DD DSN=NMC.PROD.SFCSHP.T00Z.CUR,DISP=SHR 00001420 //FT22F001 DD DSN=NMC.PROD.SFCHLY.T21Z.CUR,DISP=SHR 00001430 //FT23F001 DD DSN=NMC.PROD.SFCHLY.T00Z.CUR,DISP=SHR 00001440 //FT24F001 DD DSN=NMC.PROD.SFCHLY.T03Z.CUR,DISP=SHR 00001450 //FT25F001 DD DSN=NMC.PROD.SFCHLY.T06Z.CUR,DISP=SHR 00001460 //* 00001470 //ZRORAOB EXEC PGM=ZROFLV,COND=EVEN 00001480 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00001490 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00001500 //FT05F001 DD * 00001510 RAOB 000255RAOB B3000000000000000000000000WASHINGTON0000-1 00001520 /* 00001530 //FT06F001 DD DUMMY 00001540 //FT10F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR,LABEL=(,,,IN) 00001550 //RAOB DD DSN=NMC.PROD.VRAOBPAP.T12Z,DISP=SHR 00001560 //* 00001570 //* ZERO HURRICANE FILES 00001580 //* 00001590 //ZEROCOF EXEC PGM=ZEROCOF,COND=EVEN, 00001600 // PARM='11121314' 00001610 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00001620 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00001630 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00001640 //FT11F001 DD DSN=NMC.PROD.TCVITALS.STORM1.NHC,DISP=SHR 00001650 //FT12F001 DD DSN=NMC.PROD.TCVITALS.STORM2.NHC,DISP=SHR 00001660 //FT13F001 DD DSN=NMC.PROD.TCVITALS.STORM3.NHC,DISP=SHR 00001670 //FT14F001 DD DSN=NMC.PROD.TCVITALS.STORM4.NHC,DISP=SHR 00001680 //* 00001690 //RAOBPAPV EXEC PGM=RAOBPAPV,COND=EVEN 00001700 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00001710 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00001720 //FT05F001 DD DSN=NMC.PROD.JCDATA(RAOBDATA),DISP=SHR 00001730 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00001740 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.RGL,DISP=SHR 00001750 //FILE DD DSN=NMC.PROD.VRAOBPAP.T12Z,DISP=SHR 00001760 //* 00001770 //IJPSTAT0 EXEC PGM=MEGAIJP 00001780 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00001790 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00001800 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00001810 //IJPDA DD DSN=NMC.PROD.COM.IJPJCL(IJPSTAT0),DISP=SHR 00001820 //IJPWTR DD SYSOUT=(A,INTRDR),DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00001830 //* 00001840 //JCNT100 EXEC PGM=JCNTL 00001850 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00001860 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00001870 //FT05F001 DD * 00001880 SET100NMCNRM1,JCNTL=WW0100A1,IJNET=WN00ZNMC=NETWORK,IJ=WW0110A1= X00001890 WW0120A8,DJNET=WN00ZNMC,DJ=WW0110A1 00001900 SET100NMCNRM2,JCNTL=WW0100A1,IJNET=WN00ZNMC=NETWORK,IJ=WW0146A8 00001910 /* 00001920 //FT06F001 DD DUMMY 00001930 //CNTLDATA DD DSN=NMC.PROD.AVNCOND,DISP=SHR 00001940 //NETWORK DD DSN=NMC.PROD.NETWORK,DISP=SHR 00001950 //IJPOUT DD SYSOUT=(A,INTRDR),DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00001960 //* 00001970 //* IJP JOB TO FTP TRANSFER JOBS TO CRAY3/4/5 TO MAKE PROD DATES 00001980 //* 00001990 //IJPDATE0 EXEC PGM=MEGAIJP 00002000 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002010 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002020 //FT06F001 DD DUMMY 00002030 //IJPDA DD DSN=NMC.PROD.IJPJCL(IJPDATE),DISP=SHR 00002040 //IJPWTR DD SYSOUT=(A,INTRDR),DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00002050 //* 00002060 //COPYPRT EXEC PGM=IEBGENER,COND=EVEN 00002070 //SYSIN DD DUMMY 00002080 //SYSPRINT DD DUMMY 00002090 //SYSUT1 DD DSN=&&TEMP06,DISP=(OLD,PASS) 00002100 //SYSUT2 DD SYSOUT=R 00002110 //* 00002120 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00002130 //* ABOVE DECK CREATED TUESDAY FEB 27, 1996 - 1235 53.58 LST 00002140 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00002150 // 00002160 //WW0110A1 JOB (WX11008M1H1040X,NMC-OPS),'NMC-OPS',REGION=4000K,TIME=6, 00002170 // MSGCLASS=R 00002180 //*MAIN CLASS=NMC2,ORG=LOCAL,LINES=(40,C) 00002190 //* 00002200 //*NET ID=WN00ZNMC,HC=1 00002210 //SCHEDCHK EXEC PGM=SCHEDCHK,PARM='2335' 00002220 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002230 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002240 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS),SPACE=(CYL,(4,1)), 00002250 // DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408),UNIT=SYSWK 00002260 //* 00002270 //CLRHURRY EXEC PGM=DDPARM,PARM='NO HURRICANE,HCANEGO' 00002280 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002290 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002300 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002310 //HCANEGO DD DSN=NMC.PROD.HCANEGO,DISP=SHR 00002320 //* 00002330 //CLRBONES EXEC PGM=DDPARM,PARM='NO BAREBONES,BAREBONE' 00002340 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002350 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002360 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002370 //BAREBONE DD DSN=NMC.PROD.BAREBONE,DISP=SHR 00002380 //* 00002390 //DDPRMCRY EXEC PGM=DDPARM,PARM='CLEAR CRAYCOND,CRAYCOND' 00002400 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002410 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002420 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002430 //CRAYCOND DD DSN=NMC.PROD.CRAYCOND,DISP=SHR 00002440 //* 00002450 //DDPRMERL EXEC PGM=DDPARM,PARM='CLEAR ERLCOND,ERLCOND' 00002460 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002470 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002480 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002490 //ERLCOND DD DSN=NMC.PROD.ERLCOND,DISP=SHR 00002500 //* 00002510 //DDPRMRGL EXEC PGM=DDPARM,PARM='CLEAR RGLCOND,RGLCOND' 00002520 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002530 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002540 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002550 //RGLCOND DD DSN=NMC.PROD.RGLCOND,DISP=SHR 00002560 //* 00002570 //DDPRMAVN EXEC PGM=DDPARM,PARM='CLEAR AVNCOND,AVNCOND' 00002580 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002590 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002600 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002610 //AVNCOND DD DSN=NMC.PROD.AVNCOND,DISP=SHR 00002620 //* 00002630 //DDPRMMRF EXEC PGM=DDPARM,PARM='CLEAR MRFCOND,MRFCOND' 00002640 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002650 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002660 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002670 //MRFCOND DD DSN=NMC.PROD.MRFCOND,DISP=SHR 00002680 //* 00002690 //DDPRMMDL EXEC PGM=DDPARM,PARM='FCST126 ,MRFMODL' 00002700 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002710 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002720 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002730 //MRFMODL DD DSN=NMC.PROD.MRFMODEL,DISP=SHR 00002740 //* 00002750 //RSETPRM1 EXEC PGM=DDPARM, 00002760 // PARM='YES ,YOGICON' 00002770 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002780 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002790 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002800 //YOGICON DD DSN=NMC.PROD.YOGICOND.AVN,DISP=SHR 00002810 //* 00002820 //RSETPRM2 EXEC PGM=DDPARM, 00002830 // PARM='YES ,YOGICON' 00002840 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002850 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002860 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002870 //YOGICON DD DSN=NMC.PROD.YOGICOND.FNL,DISP=SHR 00002880 //* 00002890 //IACONDAV EXEC PGM=DDPARM, 00002900 // PARM='NHEM ,IACOND' 00002910 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002920 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00002930 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00002940 //IACOND DD DSN=NMC.PROD.IACOND.AVN,DISP=SHR 00002950 //* 00002960 //IACONDFN EXEC PGM=DDPARM, 00002970 // PARM='NHEM ,IACOND' 00002980 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00002990 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003000 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003010 //IACOND DD DSN=NMC.PROD.IACOND.FNL,DISP=SHR 00003020 //* 00003030 //UPAPARM EXEC PGM=DDPARM, 00003040 // PARM='NO UPA DATA NOT USED FOR THIS RUN,UPACOND' 00003050 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003060 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003070 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003080 //UPACOND DD DSN=NMC.PROD.UPACOND,DISP=SHR 00003090 //* 00003100 //ERLPARM EXEC PGM=DDPARM, 00003110 // PARM='NO ERL RELEASE - SDM CONTROL ,RLERCOND' 00003120 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003130 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003140 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003150 //RLERCOND DD DSN=NMC.PROD.RLERCOND,DISP=SHR 00003160 //* 00003170 //RGLPARM EXEC PGM=DDPARM, 00003180 // PARM='RELEASE RGL FOR EXECUTION ,RLRGCOND' 00003190 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003200 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003210 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003220 //RLRGCOND DD DSN=NMC.PROD.RLRGCOND,DISP=SHR 00003230 //* 00003240 //AVNPARM EXEC PGM=DDPARM, 00003250 // PARM='RELEASE AVN FOR EXECUTION ,RLAVCOND' 00003260 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003270 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003280 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003290 //RLAVCOND DD DSN=NMC.PROD.RLAVCOND,DISP=SHR 00003300 //* 00003310 //RLF8PARM EXEC PGM=DDPARM, 00003320 // PARM='RELEASE FNL 800 FOR EXECUTION ,RLF8COND' 00003330 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003340 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003350 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003360 //RLF8COND DD DSN=NMC.PROD.RLF8COND,DISP=SHR 00003370 //* 00003380 //RLF4PARM EXEC PGM=DDPARM, 00003390 // PARM='RELEASE FNL 840 FOR EXECUTION ,RLF4COND' 00003400 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003410 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003420 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003430 //RLF4COND DD DSN=NMC.PROD.RLF4COND,DISP=SHR 00003440 //* 00003450 //RMRFPARM EXEC PGM=DDPARM, 00003460 // PARM='RELEASE MRF FOR EXECUTION ,RLMRCOND' 00003470 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003480 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003490 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003500 //RLMRCOND DD DSN=NMC.PROD.RLMRCOND,DISP=SHR 00003510 //* 00003520 //JCNT200 EXEC PGM=JCNTL,COND=EVEN 00003530 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003540 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003550 //FT05F001 DD * 00003560 SET200ERLSTRT,JCNTL=WW0110A1,IJNET=WL00ZERL,IJ=WW0ST2B1 00003570 /* 00003580 //FT06F001 DD DUMMY 00003590 //CNTLDATA DD DSN=NMC.PROD.AVNCOND,DISP=SHR 00003600 //NETWORK DD DSN=NMC.PROD.NETWORK,DISP=SHR 00003610 //IJPOUT DD SYSOUT=(A,INTRDR),DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00003620 //* 00003630 //SSTSNOV EXEC PGM=SSTSNOV 00003640 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003650 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003660 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003670 //FT13F001 DD DSN=NMC.PROD.SSTSNO.T00Z.RGL,DISP=SHR 00003680 //FT20F001 DD DSN=COM.SPPROD.SNODEPH.NHMAMAP,DISP=SHR 00003690 //GES DD DSN=NMC.PROD.VGES.T00Z,DISP=SHR 00003700 //* 00003710 //SSTLSNOI EXEC PGM=SSTLSNOI 00003720 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00003730 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003740 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003750 //GES DD DSN=NMC.PROD.VGES.T00Z,DISP=SHR 00003760 //FT10F001 DD DSN=NMC.PROD.SEALAND2.FIXCLIMO,DISP=SHR 00003770 //FT12F001 DD DSN=NMC.PROD.DATE(T00Z),DISP=SHR 00003780 //FT30F001 DD DSN=NMC.PROD.SNOW2DEG.FIXCLIMO,DISP=SHR 00003790 //FT31F001 DD DSN=NMC.PROD.CICE2DEG.FIXCLIMO,DISP=SHR 00003800 //FT66F001 DD DSN=NMC.PROD.SNICEANL,DISP=SHR 00003810 //FT67F001 DD DSN=NMC.PROD.SSTMPANL,DISP=SHR 00003820 //FT68F001 DD DSN=NMC.PROD.SNOWANL.GRIB,DISP=SHR 00003830 //FT69F001 DD DSN=NMC.PROD.SICEANL.GRIB,DISP=SHR 00003840 //* 00003850 //SST1DEG EXEC PGM=SST1DEG 00003860 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003870 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003880 //GES DD DSN=NMC.PROD.VGES.T00Z,DISP=SHR 00003890 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00003900 //FT67F001 DD DSN=NMC.PROD.SSTMPANL.DEG1,DISP=SHR 00003910 //FT68F001 DD DSN=NMC.PROD.SSTMPANL.GRIB,DISP=SHR 00003920 //* 00003930 //ZROFLV EXEC PGM=ZROFLV,COND=EVEN 00003940 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00003950 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00003960 //UPALOG DD DSN=NMC.PROD.VUPALOG.T00Z,DISP=SHR 00003970 //FNOC00 DD DSN=NMC.PROD.T00Z.VFNOCFLD,DISP=SHR 00003980 //FT05F001 DD DSN=NMC.PROD.JCDATA(ZR00Z110),DISP=SHR,LABEL=(,,,IN) 00003990 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00004000 //FT10F001 DD DSN=NMC.PROD.DATE(T00Z),DISP=SHR,LABEL=(,,,IN) 00004010 //* 00004020 //* MAKE GUESS FOR 00Z T126 O/I ANALYSIS 00004030 //* 00004040 //GGEST126 EXEC PGM=GGEST126,COND=EVEN, 00004050 // PARM='12131415161718192021222324252627282934353738404144454849' 00004060 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00004070 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00004080 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00004090 //* 00004100 //* FOLLOWING ARE INTENDED FOR GES FOR 00Z 00004110 //* 00004120 //FT11F001 DD DSN=NMC.PROD.DATE(T00Z),DISP=SHR 00004130 //* 00004140 //* FIRST CHOICE - 6-HOUR GDAS 00004150 //* 00004160 //FT12F001 DD DSN=NMC.PROD.CREANL.T18Z.FNL,DISP=SHR 00004170 //FT13F001 DD DSN=NMC.PROD.CREANL.T12Z.AVN,DISP=SHR 00004180 //FT14F001 DD DSN=NMC.PROD.CRSF06.T18Z.FNL,DISP=SHR 00004190 //FT15F001 DD DSN=NMC.PROD.CRSF18.T12Z.AVN,DISP=SHR 00004200 //FT34F001 DD DSN=NMC.PROD.BF06.T18Z.FNL,DISP=SHR 00004210 //FT35F001 DD DSN=NMC.PROD.BF18.T12Z.AVN,DISP=SHR 00004220 //* 00004230 //* SECOND CHOICE - 12 HOUR AVN 00004240 //* 00004250 //FT16F001 DD DSN=NMC.PROD.CREANL.T12Z.AVN,DISP=SHR 00004260 //FT17F001 DD DSN=NMC.PROD.CRSF12.T12Z.AVN,DISP=SHR 00004270 //FT18F001 DD DSN=NMC.PROD.CRSF18.T12Z.AVN,DISP=SHR 00004280 //FT37F001 DD DSN=NMC.PROD.BF12.T12Z.AVN,DISP=SHR 00004290 //FT38F001 DD DSN=NMC.PROD.BF18.T12Z.AVN,DISP=SHR 00004300 //* 00004310 //* THIRD CHOICE - 24-HOUR AVN 00004320 //* 00004330 //FT19F001 DD DSN=NMC.PROD.CREANL.T00Z.AVN,DISP=SHR 00004340 //FT20F001 DD DSN=NMC.PROD.CRSF24.T00Z.AVN,DISP=SHR 00004350 //FT21F001 DD DSN=NMC.PROD.CRSF30.T00Z.AVN,DISP=SHR 00004360 //FT40F001 DD DSN=NMC.PROD.BF24.T00Z.AVN,DISP=SHR 00004370 //FT41F001 DD DSN=NMC.PROD.BF30.T00Z.AVN,DISP=SHR 00004380 //* 00004390 //* FOURTH CHOICE - PREVIOUS GUESS 00004400 //* 00004410 //FT22F001 DD DSN=NMC.PROD.CREGES.T12Z.FNL,DISP=SHR 00004420 //FT23F001 DD DSN=NMC.PROD.CREGES.T18Z.FNL,DISP=SHR 00004430 //FT24F001 DD DSN=NMC.PROD.CRSGES.T12Z.FNL,DISP=SHR 00004440 //FT25F001 DD DSN=NMC.PROD.CRSGES.T18Z.FNL,DISP=SHR 00004450 //FT44F001 DD DSN=NMC.PROD.BGES.T12Z.FNL,DISP=SHR 00004460 //FT45F001 DD DSN=NMC.PROD.BGES.T18Z.FNL,DISP=SHR 00004470 //* 00004480 //* OUTPUT - THE GUESS FILES FOR THE 00Z RUN 00004490 //* 00004500 //FT26F001 DD DSN=NMC.PROD.CREGES.T00Z.FNL,DISP=SHR 00004510 //FT27F001 DD DSN=NMC.PROD.CREGES.T06Z.FNL,DISP=SHR 00004520 //FT28F001 DD DSN=NMC.PROD.CRSGES.T00Z.FNL,DISP=SHR 00004530 //FT29F001 DD DSN=NMC.PROD.CRSGES.T06Z.FNL,DISP=SHR 00004540 //FT48F001 DD DSN=NMC.PROD.BGES.T00Z.FNL,DISP=SHR 00004550 //FT49F001 DD DSN=NMC.PROD.BGES.T06Z.FNL,DISP=SHR 00004560 //* 00004570 //BGESOUT EXEC PGM=BGESOUT 00004580 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00004590 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00004600 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00004610 //FT20F001 DD DSN=NMC.PROD.BGES.T00Z.FNL,DISP=SHR,LABEL=(,,,IN) 00004620 //FT71F001 DD DSN=NMC.PROD.SFCBGES.SUN00Z,DISP=SHR 00004630 //FT72F001 DD DSN=NMC.PROD.SFCBGES.MON00Z,DISP=SHR 00004640 //FT73F001 DD DSN=NMC.PROD.SFCBGES.TUE00Z,DISP=SHR 00004650 //FT74F001 DD DSN=NMC.PROD.SFCBGES.WED00Z,DISP=SHR 00004660 //FT75F001 DD DSN=NMC.PROD.SFCBGES.THU00Z,DISP=SHR 00004670 //FT76F001 DD DSN=NMC.PROD.SFCBGES.FRI00Z,DISP=SHR 00004680 //FT77F001 DD DSN=NMC.PROD.SFCBGES.SAT00Z,DISP=SHR 00004690 //* 00004700 //UAGES EXEC PGM=UAGES,PARM='YES' 00004710 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00004720 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00004730 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00004740 //FT25F001 DD DSN=NMC.PROD.UA.LOCATOR.SUMMARY.LISTS,DISP=SHR 00004750 //FT31F001 DD DSN=NMC.PROD.DATE(T00Z),DISP=SHR,LABEL=(,,,IN) 00004760 //FT32F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR,LABEL=(,,,IN) 00004770 //DD3 DD DSN=NMC.PROD.UA.LOCATOR.SUMMARY.LISTS,DISP=SHR 00004780 //GES DD DSN=NMC.PROD.VGF12.T00Z.FNL,DISP=SHR 00004790 //GF00 DD DSN=NMC.PROD.VGF12.T00Z.FNL,DISP=SHR 00004800 //GF12 DD DSN=NMC.PROD.VGF12.T12Z.FNL,DISP=SHR 00004810 //GESDAT DD DSN=NMC.PROD.SDM.GESDAT,DISP=SHR 00004820 //GESS DD DSN=NMC.PROD.SDM.GESSTAT,DISP=SHR 00004830 //LIST DD SYSOUT=R 00004840 //LIST79 DD DSN=NMC.PROD.SDM.LIST79,DISP=SHR 00004850 //PRESTEMP DD DSN=NMC.PROD.SDM.PRESTEMP,DISP=SHR 00004860 //RH DD DSN=NMC.PROD.SDM.RELHUM,DISP=SHR 00004870 //SNAP DD SYSOUT=R 00004880 //SYSPRINT DD SYSOUT=R 00004890 //SYSUDUMP DD SYSOUT=R 00004900 //WINDS DD DSN=NMC.PROD.SDM.WINDS,DISP=SHR 00004910 //* 00004920 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LE) 00004930 //* 00004940 //CPYPRT1 EXEC PGM=IEBGENER,COND=((0,EQ,NOPRINT),EVEN) 00004950 //SYSIN DD DUMMY 00004960 //SYSPRINT DD DUMMY 00004970 //SYSUT1 DD DSN=&&TEMP06,DISP=(SHR,PASS) 00004980 //SYSUT2 DD SYSOUT=R 00004990 //* 00005000 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00005010 //* ABOVE DECK CREATED TUESDAY FEB 27, 1996 - 1235 53.58 LST 00005020 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00005030 // 00005040 //WW0120A8 JOB (WX11008M1H1040X,NMC-M),'NMC-OPS',REGION=1500K,TIME=3, 00005050 // MSGCLASS=R 00005060 //*MAIN CLASS=NMC3,LINES=(30,C),ORG=LOCAL 00005070 //* 00005080 //* 00005090 //*NET ID=WN00ZNMC,HC=1 00005100 //FDFICFMT EXEC PGM=FDFICFMT 00005110 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00005120 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00005130 //FT06F001 DD DSN=&&TEMP06,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408), 00005140 // UNIT=SYSWK,SPACE=(CYL,(4,2)),DISP=(NEW,PASS) 00005150 //FT07F001 DD DSN=NMC.PROD.DATE(T12Z),LABEL=(,,,IN),DISP=SHR 00005160 //FT10F001 DD DSN=&&FDARCH,UNIT=SYSWK,SPACE=(CYL,1),DISP=(,PASS), 00005170 // DCB=(RECFM=FB,LRECL=69,BLKSIZE=6210) 00005180 //FT24F001 DD DSN=NMC.PROD.FDFICHE.PRIMRY12.AVN,DISP=SHR 00005190 //* 00005200 //FDWNDARC EXEC PGM=ARCHADP4,PARM='FILE(1)',COND=EVEN 00005210 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00005220 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00005230 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00005240 //FT10F001 DD DSN=&&FDARCH,DCB=(RECFM=U,LRECL=6210,BLKSIZE=6210), 00005250 // DISP=(OLD,PASS) 00005260 //FDWIND00 DD DSN=NMC.PROD.ARKV.FDWINDS,DISP=SHR 00005270 //FDWIND12 DD DSN=NMC.PROD.ARKV.FDWINDS,DISP=SHR 00005280 //* 00005290 //JCNT120 EXEC PGM=JCNTL,COND=EVEN 00005300 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00005310 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00005320 //FT05F001 DD * 00005330 SET120NMCTDL1,JCNTL=WW0120A8,IJNET=WN00ZNMC=NETWORK,IJ=WW0133A8= X00005340 WW0134A8=WW0135A8=WW0140A8,DJNET=WN00ZNMC,DJ=WW0133A8 00005350 SET120NMCTDL2,JCNTL=WW0120A8,IJNET=WN00ZNMC=NETWORK,IJ=WW0144A8 00005360 /* 00005370 //FT06F001 DD DUMMY 00005380 //CNTLDATA DD DSN=NMC.PROD.AVNCOND,DISP=SHR 00005390 //NETWORK DD DSN=NMC.PROD.NETWORK,DISP=SHR 00005400 //IJPOUT DD SYSOUT=(A,INTRDR),DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00005410 //* 00005420 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00005430 //* 00005440 //COPYPRT EXEC PGM=IEBGENER,COND=((0,EQ,NOPRINT),EVEN) 00005450 //SYSIN DD DUMMY 00005460 //SYSPRINT DD DUMMY 00005470 //SYSUT1 DD DSN=&&TEMP06,DISP=(OLD,PASS) 00005480 //SYSUT2 DD SYSOUT=A 00005490 //* 00005500 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00005510 //* ABOVE DECK CREATED TUESDAY FEB 20, 1990 - 1427 05.90 LST 00005520 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00005530 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00005540 //* ABOVE DECK CREATED TUESDAY NOV 5, 1991 - 1432 10.65 LST 00005550 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00005560 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00005570 //* ABOVE DECK CREATED TUESDAY NOV 26, 1991 - 1019 06.26 LST 00005580 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00005590 // 00005600 //WW0133A8 JOB (WX11008M1H1040X,WWB3-A11),'TDL',REGION=1500K,TIME=3, 00005610 // MSGCLASS=R 00005620 //*MAIN CLASS=NMC3,ORG=WWBAD1 00005630 //* 00005640 //*FORMAT PR,DDNAME=SYSMSG,DEST=WWBAD1 00005650 //*FORMAT PR,DDNAME=FT06F001,DEST=WWBAD1 00005660 //* 00005670 //*NET ID=WN00ZNMC,HC=1 00005680 //STORTJNG EXEC PGM=STORTJNG,COND=EVEN 00005690 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00005700 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00005710 //TRJMOS DD DSN=OSD.PROD.NGMTRAJ.T12Z,DISP=SHR 00005720 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1995) 00005730 //FT10F001 DD DSN=OSD.PROD.ARC0001.STORTJN,DISP=SHR 00005740 //FT20F001 DD DSN=OSD.PROD.JCDATA(STORTJN2),DISP=SHR 00005750 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR,LABEL=(,,,IN) 00005760 //* 00005770 //STORNGM EXEC PGM=STORNGM,COND=EVEN 00005780 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00005790 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00005800 //RF00 DD DSN=NMC.PROD.VRF00.T12Z.RGL,DISP=SHR 00005810 //RF06 DD DSN=NMC.PROD.VRF06.T12Z.RGL,DISP=SHR 00005820 //RF12 DD DSN=NMC.PROD.VRF12.T12Z.RGL,DISP=SHR 00005830 //RF18 DD DSN=NMC.PROD.VRF18.T12Z.RGL,DISP=SHR 00005840 //RF24 DD DSN=NMC.PROD.VRF24.T12Z.RGL,DISP=SHR 00005850 //RF30 DD DSN=NMC.PROD.VRF30.T12Z.RGL,DISP=SHR 00005860 //RF36 DD DSN=NMC.PROD.VRF36.T12Z.RGL,DISP=SHR 00005870 //RF42 DD DSN=NMC.PROD.VRF42.T12Z.RGL,DISP=SHR 00005880 //RF48 DD DSN=NMC.PROD.VRF48.T12Z.RGL,DISP=SHR 00005890 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FB,LRECL=133,BLKSIZE=1995) 00005900 //FT10F001 DD DSN=OSD.PROD.ARC0001.STORNGM,DISP=SHR 00005910 //FT20F001 DD DSN=OSD.PROD.JCDATA(STORNGM2),LABEL=(,,,IN), 00005920 // DISP=SHR 00005930 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR,LABEL=(,,,IN) 00005940 /* 00005950 //STORMRF EXEC PGM=STORMRF,COND=EVEN 00005960 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00005970 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00005980 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1995) 00005990 //FT10F001 DD DSN=OSD.PROD.ARC1201.STORMRF,DISP=SHR 00006000 //FT20F001 DD DSN=OSD.PROD.JCDATA(STORMRF2),LABEL=(,,,IN), 00006010 // DISP=SHR 00006020 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),LABEL=(,,,IN),DISP=SHR 00006030 //F00 DD DSN=NMC.PROD.VF00.T12Z.AVN,DISP=SHR 00006040 //F12 DD DSN=NMC.PROD.VF12.T12Z.AVN,DISP=SHR 00006050 //F24 DD DSN=NMC.PROD.VF24.T12Z.AVN,DISP=SHR 00006060 //F36 DD DSN=NMC.PROD.VF36.T12Z.AVN,DISP=SHR 00006070 //F48 DD DSN=NMC.PROD.VF48.T12Z.AVN,DISP=SHR 00006080 //F60 DD DSN=NMC.PROD.VF60.T12Z.AVN,DISP=SHR 00006090 //F72 DD DSN=NMC.PROD.VF72.T12Z.AVN,DISP=SHR 00006100 //* 00006110 //STORETA EXEC PGM=STORGRID,COND=EVEN 00006120 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00006130 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00006140 //FT05F001 DD DSN=OSD.PROD.JCDATA(STORETA2),DISP=SHR 00006150 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1995) 00006160 //FT10F001 DD DSN=OSD.PROD.ARC1201.STORETA,DISP=SHR 00006170 //FT80F001 DD DSN=OSD.PROD.TDL.GRIDS,DISP=SHR 00006180 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR 00006190 //LF00XP DD DSN=NMC.PROD.VLF00XP.T12Z.ETA,DISP=SHR 00006200 //LF06XP DD DSN=NMC.PROD.VLF06XP.T12Z.ETA,DISP=SHR 00006210 //LF12XP DD DSN=NMC.PROD.VLF12XP.T12Z.ETA,DISP=SHR 00006220 //LF18XP DD DSN=NMC.PROD.VLF18XP.T12Z.ETA,DISP=SHR 00006230 //LF24XP DD DSN=NMC.PROD.VLF24XP.T12Z.ETA,DISP=SHR 00006240 //LF30XP DD DSN=NMC.PROD.VLF30XP.T12Z.ETA,DISP=SHR 00006250 //LF36XP DD DSN=NMC.PROD.VLF36XP.T12Z.ETA,DISP=SHR 00006260 //LF42XP DD DSN=NMC.PROD.VLF42XP.T12Z.ETA,DISP=SHR 00006270 //LF48XP DD DSN=NMC.PROD.VLF48XP.T12Z.ETA,DISP=SHR 00006280 //* 00006290 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00006300 //* 00006310 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00006320 //* ABOVE DECK CREATED TUESDAY FEB 27, 1996 - 1235 53.58 LST 00006330 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00006340 // 00006350 //WW0134A8 JOB (WX11008M1H1040X,WWB3-A11),'TDL',REGION=2000K,TIME=3, 00006360 // MSGCLASS=R 00006370 //*MAIN CLASS=NMC3,ORG=WWBAD1 00006380 //* 00006390 //*NET ID=WN00ZNMC,HC=1 00006400 //TDLSYNUP EXEC PGM=TDLSYNUP,PARM='0000000000000000000000Z 99' 00006410 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00006420 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00006430 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1995) 00006440 //FT20F001 DD DSN=OSD.PROD.TDL.SYNOPDIC,LABEL=(,,,IN),DISP=SHR 00006450 //FT23F001 DD DSN=&&SYN12Z,DCB=(RECFM=VBS,LRECL=128,BLKSIZE=23044), 00006460 // SPACE=(TRK,12),UNIT=SYSWK,DISP=(NEW,PASS) 00006470 //FT24F001 DD DSN=&&SYN18Z,DCB=(RECFM=VBS,LRECL=128,BLKSIZE=23044), 00006480 // SPACE=(TRK,12),UNIT=SYSWK,DISP=(NEW,PASS) 00006490 //FT42F001 DD DSN=NMC.PROD.ADPSFC.T12Z.CUR,DISP=SHR 00006500 //FT48F001 DD DSN=NMC.PROD.ADPSFC.T18Z.CUR,DISP=SHR 00006510 //* 00006520 //TDLHRFMH EXEC PGM=TDLHRFMH,COND=EVEN 00006530 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00006540 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00006550 //FT05F001 DD DSN=OSD.PROD.JCDATA(TDLFMH12),DISP=SHR 00006560 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1995) 00006570 //FT20F001 DD DSN=NMC.PROD.RAWDTA.HRLY.FMH1,DISP=SHR,LABEL=(,,,IN) 00006580 //FT30F001 DD DSN=OSD.PROD.TDL.FMH1DTA.T12Z,DISP=SHR 00006590 //FT40F001 DD DSN=OSD.PROD.TDL.FMH1DICT,DISP=SHR,LABEL=(,,,IN) 00006600 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR,LABEL=(,,,IN) 00006610 //* 00006620 //TDLHRARC EXEC PGM=TDLHRARC,PARM='0000000000000000000000Z 99', 00006630 // COND=EVEN 00006640 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00006650 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00006660 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1995) 00006670 //FT10F001 DD DSN=OSD.PROD.ARC0001.STORHLY,DISP=SHR 00006680 //FT23F001 DD DSN=&&SYN12Z,DISP=(OLD,PASS) 00006690 //FT24F001 DD DSN=&&SYN18Z,DISP=(OLD,PASS) 00006700 //FT25F001 DD DSN=OSD.PROD.TDL.FMH1DTA.T12Z,DISP=SHR 00006710 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR 00006720 //NMCRAWDT DD UNIT=3380,VOL=SER=NWS752,DISP=SHR 00006730 //* 00006740 //STORMDR EXEC PGM=STORMDRV,COND=EVEN 00006750 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00006760 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00006770 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1995) 00006780 //FT10F001 DD DSN=OSD.PROD.ARC0001.STORMDR,DISP=SHR 00006790 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR,LABEL=(,,,IN) 00006800 //MDRDAT DD DSN=NMC.PROD.VRADAR.T12Z.AC1213,DISP=SHR 00006810 //* 00006820 //STORAFO EXEC PGM=STORAFO,COND=EVEN 00006830 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00006840 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00006850 //FT01F001 DD DSN=NMC.PROD.DSP.RAWCTLS,DISP=SHR 00006860 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1995) 00006870 //FT10F001 DD DSN=OSD.PROD.ARC0001.STORAFO,DISP=SHR 00006880 //FT20F001 DD DSN=NMC.PROD.DSP.VERAFO,DISP=SHR 00006890 //FT25F001 DD DSN=OSD.PROD.ARCH.VERFCTLS,DISP=SHR 00006900 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR,LABEL=(,,,IN) 00006910 //* 00006920 //IJPTDLA8 EXEC PGM=MEGAIJP 00006930 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00006940 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00006950 //FT06F001 DD DUMMY 00006960 //IJPDA DD DSN=NWS.WE21.JSJ.OPIJPJCL(STORAFO0),DISP=SHR 00006970 //IJPWTR DD SYSOUT=(A,INTRDR),DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00006980 //* 00006990 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00007000 //* 00007010 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00007020 //* ABOVE DECK CREATED WEDNESDAY FEB 01, 1995 - 0825 49.02 LST 00007030 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00007040 // 00007050 //WW0135A8 JOB (WX11008M1H1040X,WWB3-A11),'TDL',REGION=1500K,TIME=2, 00007060 // MSGCLASS=R 00007070 //*MAIN CLASS=NMC3,ORG=WWBAD1 00007080 //* 00007090 //*FORMAT PR,DDNAME=SYSMSG,DEST=WWBAD1 00007100 //*FORMAT PR,DDNAME=FT06F001,DEST=WWBAD1 00007110 //* 00007120 //*NET ID=WN00ZNMC,HC=1 00007130 //COPYMOS EXEC PGM=COPYMOS 00007140 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00007150 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00007160 //FT05F001 DD DSN=OSD.PROD.JCDATA(COPYMOS0),DISP=SHR,LABEL=(,,,IN) 00007170 //FT06F001 DD SYSOUT=R 00007180 //MOSMAT DD DSN=OSD.PROD.NGM.VMOSMAT.T00Z,DISP=SHR 00007190 //MOSMAT00 DD DSN=OSD.PROD.VMOSMAT.T00Z,DISP=SHR 00007200 //* 00007210 //STORBUOY EXEC PGM=STORBUOY 00007220 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00007230 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00007240 //FT05F001 DD DSN=NMC.PROD.JCDATA(ARCABDIC),LABEL=(,,,IN),DISP=SHR 00007250 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408) 00007260 //FT11F001 DD DSN=NMC.PROD.BUOYHRLY,DISP=SHR 00007270 //FT12F001 DD DSN=NMC.PROD.DSP.RAWCTLS,DISP=SHR 00007280 //FT13F001 DD DSN=NMC.PROD.DATE(T12Z),LABEL=(,,,IN),DISP=SHR 00007290 //FT14F001 DD DSN=NMC.PROD.MARINE.ARCHIVE,DISP=SHR 00007300 //FT19F001 DD DSN=NMC.PROD.DSP.SHPRAW,DISP=SHR 00007310 //FT51F001 DD DSN=NMC.PROD.ARC0001.STORBOY,DISP=SHR 00007320 //FT52F001 DD DSN=NMC.PROD.ARC0001.STORFST,DISP=SHR 00007330 //FT80F001 DD DSN=NMC.PROD.ARCH.BUOYCTL,DISP=SHR 00007340 //* 00007350 //STORMOS EXEC PGM=STORMOS,COND=EVEN 00007360 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00007370 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00007380 //FT05F001 DD DSN=OSD.PROD.JCDATA(STRMOS12),DISP=SHR,LABEL=(,,,IN) 00007390 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408) 00007400 //FT10F001 DD DSN=OSD.PROD.ARC1201.STORMOS,DISP=SHR 00007410 //FT11F001 DD DSN=OSD.PROD.ARC1201.STORBAK,DISP=SHR 00007420 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR,LABEL=(,,,IN) 00007430 //MOSMAT12 DD DSN=OSD.PROD.VMOSMAT.T12Z,DISP=SHR 00007440 //MOSBAT12 DD DSN=OSD.PROD.VMOSBAT.T12Z,DISP=SHR 00007450 //* 00007460 //STORFS14 EXEC PGM=STORFOUS,COND=EVEN 00007470 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00007480 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00007490 //FT05F001 DD DSN=OSD.PROD.JCDATA(STORF14),DISP=SHR,LABEL=(,,,IN) 00007500 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408) 00007510 //FT10F001 DD DSN=OSD.PROD.ARC1201.STORF14,DISP=SHR 00007520 //FT20F001 DD DSN=OSD.PROD.FOUS14.T12Z,DISP=SHR 00007530 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),LABEL=(,,,IN),DISP=SHR 00007540 //* 00007550 //STORFS50 EXEC PGM=STORFOUS,COND=EVEN 00007560 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00007570 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00007580 //FT05F001 DD DSN=OSD.PROD.JCDATA(STORF50),DISP=SHR,LABEL=(,,,IN) 00007590 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408) 00007600 //FT10F001 DD DSN=OSD.PROD.ARC1201.STORF50,DISP=SHR 00007610 //FT20F001 DD DSN=OSD.PROD.FOUS5057.T12Z,DISP=SHR 00007620 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),LABEL=(,,,IN),DISP=SHR 00007630 //* 00007640 //STORFEX EXEC PGM=STORFOUS,COND=EVEN 00007650 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00007660 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00007670 //FT05F001 DD DSN=OSD.PROD.JCDATA(STORFEX),DISP=SHR,LABEL=(,,,IN) 00007680 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408) 00007690 //FT10F001 DD DSN=OSD.PROD.ARC1201.STORFEX,DISP=SHR 00007700 //FT20F001 DD DSN=OSD.PROD.AVNFEX.T12Z,DISP=SHR 00007710 //FT90F001 DD DSN=NMC.PROD.DATE(T12Z),LABEL=(,,,IN),DISP=SHR 00007720 //* 00007730 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00007740 //* 00007750 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00007760 //* ABOVE DECK CREATED MONDAY AUG 21, 1995 - 0816 14.94 LST 00007770 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00007780 // 00007790 //WW0140A8 JOB (WX11008M1H1040X,WWB3-B1),'BOSTLE',REGION=1500K,TIME=5, 00007800 // MSGCLASS=R 00007810 //*MAIN CLASS=NMC3,ORG=WWBAD1 00007820 //* 00007830 //*NET ID=WN00ZNMC,HC=1 00007840 //JCNT140 EXEC PGM=JCNTL,COND=EVEN 00007850 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00007860 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00007870 //FT05F001 DD * 00007880 SET140NMCRLSE,JCNTL=WW0140A8,DJNET=WN00ZNMC=NETWORK,DJ=WW0144A8 00007890 /* 00007900 //FT06F001 DD DUMMY 00007910 //CNTLDATA DD DSN=NMC.PROD.AVNCOND,DISP=SHR 00007920 //NETWORK DD DSN=NMC.PROD.NETWORK,DISP=SHR 00007930 //IJPOUT DD SYSOUT=(A,INTRDR),DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00007940 //* 00007950 //CONSOL EXEC PGM=CONJCL, 00007960 // PARM='NWS, ***** STARTING 36 DAY SM-GBL DISK ARCHIVE ***** ' 00007970 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00007980 //* 00007990 //OPN36DYV EXEC PGM=OPN36DYV 00008000 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00008010 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00008020 //ANL DD DSN=NMC.PROD.VANL.T12Z.AVN,DISP=SHR 00008030 //CAC DD DSN=NMC.PROD.HD36.VCAC,DISP=SHR 00008040 //ESTATS DD DSN=NMC.PROD.VENERGY.STATS,DISP=SHR 00008050 //HOP DD DSN=NMC.PROD.HD36.VHOP,DISP=SHR 00008060 //ENRGY1 DD DSN=NMC.PROD.HD36.VENERGY1,DISP=SHR 00008070 //ENRGY2 DD DSN=NMC.PROD.HD36.VENERGY2,DISP=SHR 00008080 //FT05F001 DD DSN=NMC.PROD.JCDATA(HOPENERG),DISP=SHR,LABEL=(,,,IN) 00008090 //FT06F001 DD DSN=&&TEMP06,UNIT=SYSWK,DISP=(NEW,PASS), 00008100 // SPACE=(CYL,4),DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408) 00008110 //FT09F001 DD DUMMY 00008120 //* 00008130 //SHEMHOP EXEC PGM=OPN36DYV 00008140 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00008150 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00008160 //ANL DD DSN=NMC.PROD.VANL.T12Z.AVN,DISP=SHR 00008170 //HOP DD DSN=NMC.PROD.HD36.VHOP.SHEM,DISP=SHR 00008180 //FT05F001 DD DSN=NMC.PROD.JCDATA(JCDATHOP),DISP=SHR,LABEL=(,,,IN) 00008190 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00008200 //FT09F001 DD DUMMY 00008210 //* 00008220 //IJPUPREV EXEC PGM=MEGAIJP,COND=EVEN 00008230 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00008240 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00008250 //FT06F001 DD DUMMY 00008260 //IJPDA DD DSN=NMC.PROD.IJPJCL(IJPARCU0),DISP=SHR 00008270 //IJPWTR DD SYSOUT=(A,INTRDR),DCB=(RECFM=FBA,LRECL=80,BLKSIZE=80) 00008280 //* 00008290 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00008300 //* 00008310 //COPYPRT1 EXEC PGM=IEBGENER,COND=((0,EQ,NOPRINT),EVEN) 00008320 //SYSPRINT DD DUMMY 00008330 //SYSIN DD DUMMY 00008340 //SYSUT1 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00008350 //SYSUT2 DD SYSOUT=R 00008360 //* 00008370 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00008380 //* ABOVE DECK CREATED TUESDAY JUN 9, 1992 - 2052 12.36 LST 00008390 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00008400 // 00008410 //WW0144A8 JOB (WX11008M1H1040X,WWB3-A10),'VLCEK',REGION=700K,TIME=3, 00008420 // MSGCLASS=R 00008430 //*MAIN CLASS=NMC3,ORG=WWBAD1 00008440 //* 00008450 //* ARCHIVE 12Z CYCLE 00008460 //* (RUN AT START OF 00Z CYCLE) 00008470 //* 00008480 //* MAKE 12Z AVN ARCHIVE (OLD HEM) 00008490 //* 00008500 //*NET ID=WN00ZNMC,HC=1 00008510 //ARCHAVN EXEC PGM=ARCHEMV 00008520 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00008530 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00008540 //FT06F001 DD SYSOUT=R 00008550 //ANL DD DSN=NMC.PROD.VANL.T12Z.AVN,DISP=SHR 00008560 //F00 DD DSN=NMC.PROD.VF00.T12Z.AVN,DISP=SHR 00008570 //F12 DD DSN=NMC.PROD.VF12.T12Z.AVN,DISP=SHR 00008580 //F24 DD DSN=NMC.PROD.VF24.T12Z.AVN,DISP=SHR 00008590 //F36 DD DSN=NMC.PROD.VF36.T12Z.AVN,DISP=SHR 00008600 //F48 DD DSN=NMC.PROD.VF48.T12Z.AVN,DISP=SHR 00008610 //F60 DD DSN=NMC.PROD.VF60.T12Z.AVN,DISP=SHR 00008620 //F72 DD DSN=NMC.PROD.VF72.T12Z.AVN,DISP=SHR 00008630 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VAVN,DISP=SHR 00008640 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VAVN,DISP=SHR 00008650 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VAVN,DISP=SHR 00008660 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VAVN,DISP=SHR 00008670 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VAVN,DISP=SHR 00008680 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VAVN,DISP=SHR 00008690 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VAVN,DISP=SHR 00008700 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VAVN,DISP=SHR 00008710 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VAVN,DISP=SHR 00008720 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VAVN,DISP=SHR 00008730 //FT05F001 DD DSN=NMC.PROD.JCDATA(JCARCHEM),DISP=SHR,LABEL=(,,,IN) 00008740 //* 00008750 //* MAKE 12Z ERL ARCHIVE WITH ETA MODEL 00008760 //* 00008770 //ARCHERL EXEC PGM=ARCHEMV 00008780 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00008790 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00008800 //FT06F001 DD SYSOUT=R 00008810 //ANL DD DSN=NMC.PROD.VLFMANL.T12Z.ETA,DISP=SHR 00008820 //F12 DD DSN=NMC.PROD.VLFM12.T12Z.ETA,DISP=SHR 00008830 //F24 DD DSN=NMC.PROD.VLFM24.T12Z.ETA,DISP=SHR 00008840 //F36 DD DSN=NMC.PROD.VLFM36.T12Z.ETA,DISP=SHR 00008850 //F48 DD DSN=NMC.PROD.VLFM48.T12Z.ETA,DISP=SHR 00008860 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VERL,DISP=SHR 00008870 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VERL,DISP=SHR 00008880 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VERL,DISP=SHR 00008890 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VERL,DISP=SHR 00008900 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VERL,DISP=SHR 00008910 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VERL,DISP=SHR 00008920 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VERL,DISP=SHR 00008930 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VERL,DISP=SHR 00008940 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VERL,DISP=SHR 00008950 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VERL,DISP=SHR 00008960 //FT05F001 DD DSN=NMC.PROD.JCDATA(ARCREG),DISP=SHR,LABEL=(,,,IN) 00008970 //* 00008980 //* MAKE 12Z FNL ARCHIVE (OLD GLO) 00008990 //* 00009000 //ARCHFNL EXEC PGM=ARCHEMV 00009010 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00009020 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00009030 //FT06F001 DD SYSOUT=R 00009040 //ANL DD DSN=NMC.PROD.VANL.T12Z.FNL,DISP=SHR 00009050 //GANL DD DSN=NMC.PROD.VGANL.T12Z.FNL,DISP=SHR 00009060 //GF12 DD DSN=NMC.PROD.VGF12.T12Z.FNL,DISP=SHR 00009070 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VFNL,DISP=SHR 00009080 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VFNL,DISP=SHR 00009090 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VFNL,DISP=SHR 00009100 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VFNL,DISP=SHR 00009110 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VFNL,DISP=SHR 00009120 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VFNL,DISP=SHR 00009130 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VFNL,DISP=SHR 00009140 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VFNL,DISP=SHR 00009150 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VFNL,DISP=SHR 00009160 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VFNL,DISP=SHR 00009170 //FT05F001 DD DSN=NMC.PROD.JCDATA(GLOARC),DISP=SHR,LABEL=(,,,IN) 00009180 //* 00009190 //* MAKE 12Z SPECTRAL COEFFICIENT ARCHIVE 00009200 //* 00009210 //ARCVAVNC EXEC PGM=ARCHEMV 00009220 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00009230 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00009240 //FT06F001 DD SYSOUT=R 00009250 //ANL DD DSN=NMC.PROD.VANL.T12Z.AVN,DISP=SHR 00009260 //S00 DD DSN=NMC.PROD.VS00.T12Z.AVN,DISP=SHR 00009270 //S12 DD DSN=NMC.PROD.VS12.T12Z.AVN,DISP=SHR 00009280 //S24 DD DSN=NMC.PROD.VS24.T12Z.AVN,DISP=SHR 00009290 //S36 DD DSN=NMC.PROD.VS36.T12Z.AVN,DISP=SHR 00009300 //S48 DD DSN=NMC.PROD.VS48.T12Z.AVN,DISP=SHR 00009310 //S60 DD DSN=NMC.PROD.VS60.T12Z.AVN,DISP=SHR 00009320 //S72 DD DSN=NMC.PROD.VS72.T12Z.AVN,DISP=SHR 00009330 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VAVNC,DISP=SHR 00009340 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VAVNC,DISP=SHR 00009350 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VAVNC,DISP=SHR 00009360 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VAVNC,DISP=SHR 00009370 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VAVNC,DISP=SHR 00009380 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VAVNC,DISP=SHR 00009390 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VAVNC,DISP=SHR 00009400 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VAVNC,DISP=SHR 00009410 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VAVNC,DISP=SHR 00009420 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VAVNC,DISP=SHR 00009430 //FT05F001 DD DSN=NMC.PROD.JCDATA(JCARCSPC),DISP=SHR,LABEL=(,,,IN) 00009440 //* 00009450 //ARCHVRGL EXEC PGM=ARCHEMV 00009460 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00009470 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00009480 //FT05F001 DD DSN=NMC.PROD.JCDATA(ARCREG),DISP=SHR,LABEL=(,,,IN) 00009490 //FT06F001 DD SYSOUT=R 00009500 //ANL DD DSN=NMC.PROD.VRANL.T12Z.RGL,DISP=SHR 00009510 //F12 DD DSN=NMC.PROD.VRF12.T12Z.RGL,DISP=SHR 00009520 //F24 DD DSN=NMC.PROD.VRF24.T12Z.RGL,DISP=SHR 00009530 //F36 DD DSN=NMC.PROD.VRF36.T12Z.RGL,DISP=SHR 00009540 //F48 DD DSN=NMC.PROD.VRF48.T12Z.RGL,DISP=SHR 00009550 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VRGL,DISP=SHR 00009560 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VRGL,DISP=SHR 00009570 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VRGL,DISP=SHR 00009580 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VRGL,DISP=SHR 00009590 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VRGL,DISP=SHR 00009600 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VRGL,DISP=SHR 00009610 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VRGL,DISP=SHR 00009620 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VRGL,DISP=SHR 00009630 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VRGL,DISP=SHR 00009640 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VRGL,DISP=SHR 00009650 //* 00009660 //ARCUKMET EXEC PGM=ARCHEMV 00009670 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00009680 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00009690 //ANL DD DSN=NMC.PROD.VANL.T12Z.AVN,DISP=SHR 00009700 //F00 DD DSN=NMC.PROD.VF00.T12Z.UKMET,DISP=SHR 00009710 //F12 DD DSN=NMC.PROD.VF12.T12Z.UKMET,DISP=SHR 00009720 //F24 DD DSN=NMC.PROD.VF24.T12Z.UKMET,DISP=SHR 00009730 //F36 DD DSN=NMC.PROD.VF36.T12Z.UKMET,DISP=SHR 00009740 //F48 DD DSN=NMC.PROD.VF48.T12Z.UKMET,DISP=SHR 00009750 //F60 DD DSN=NMC.PROD.VF60.T12Z.UKMET,DISP=SHR 00009760 //F72 DD DSN=NMC.PROD.VF72.T12Z.UKMET,DISP=SHR 00009770 //FXN DD DSN=NMC.PROD.VFXN.T12Z.UKMET,DISP=SHR 00009780 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VUKMET,DISP=SHR 00009790 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VUKMET,DISP=SHR 00009800 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VUKMET,DISP=SHR 00009810 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VUKMET,DISP=SHR 00009820 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VUKMET,DISP=SHR 00009830 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VUKMET,DISP=SHR 00009840 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VUKMET,DISP=SHR 00009850 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VUKMET,DISP=SHR 00009860 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VUKMET,DISP=SHR 00009870 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VUKMET,DISP=SHR 00009880 //FT05F001 DD DSN=NMC.PROD.JCDATA(ARCUKMET),DISP=SHR,LABEL=(,,,IN) 00009890 //FT06F001 DD SYSOUT=R 00009900 //* 00009910 //ARCUKMSH EXEC PGM=ARCHEMV 00009920 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00009930 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00009940 //ANL DD DSN=NMC.PROD.VANL.T12Z.AVN,DISP=SHR 00009950 //F00 DD DSN=NMC.PROD.VF00.T12Z.UKMET,DISP=SHR 00009960 //F12 DD DSN=NMC.PROD.VF12.T12Z.UKMET,DISP=SHR 00009970 //F24 DD DSN=NMC.PROD.VF24.T12Z.UKMET,DISP=SHR 00009980 //F36 DD DSN=NMC.PROD.VF36.T12Z.UKMET,DISP=SHR 00009990 //F48 DD DSN=NMC.PROD.VF48.T12Z.UKMET,DISP=SHR 00010000 //F60 DD DSN=NMC.PROD.VF60.T12Z.UKMET,DISP=SHR 00010010 //F72 DD DSN=NMC.PROD.VF72.T12Z.UKMET,DISP=SHR 00010020 //FXN DD DSN=NMC.PROD.VFXN.T12Z.UKMET,DISP=SHR 00010030 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VUKMETSH,DISP=SHR 00010040 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VUKMETSH,DISP=SHR 00010050 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VUKMETSH,DISP=SHR 00010060 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VUKMETSH,DISP=SHR 00010070 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VUKMETSH,DISP=SHR 00010080 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VUKMETSH,DISP=SHR 00010090 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VUKMETSH,DISP=SHR 00010100 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VUKMETSH,DISP=SHR 00010110 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VUKMETSH,DISP=SHR 00010120 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VUKMETSH,DISP=SHR 00010130 //FT05F001 DD DSN=NMC.PROD.JCDATA(ARCUKMSH),DISP=SHR,LABEL=(,,,IN) 00010140 //FT06F001 DD SYSOUT=R 00010150 //* 00010160 //JCNT144 EXEC PGM=JCNTL,COND=EVEN 00010170 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00010180 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00010190 //FT05F001 DD * 00010200 SET144NMCACUM,JCNTL=WW0144A8,IJNET=WN00ZNMC=NETWORK,IJ=WW0150A7= X00010210 WW0151A7=WW0152A7=WW0153A7=WW0154A7=WW0155A7=WW0156A7, X00010220 DJNET=WN00ZNMC,DJ=WW0150A7 00010230 /* 00010240 //FT06F001 DD DUMMY 00010250 //CNTLDATA DD DSN=NMC.PROD.AVNCOND,DISP=SHR 00010260 //NETWORK DD DSN=NMC.PROD.NETWORK,DISP=SHR 00010270 //IJPOUT DD SYSOUT=(A,INTRDR),DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00010280 //* 00010290 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00010300 //* ABOVE DECK CREATED TUESDAY JUN 29, 1993 - 0846 51.28 LST 00010310 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00010320 // 00010330 //WW0146A8 JOB (WX11008M1H1040X,NMC-M),'NMC-OPS',REGION=2500K,TIME=3, 00010340 // MSGCLASS=R 00010350 //*MAIN CLASS=NMC3,LINES=(30,C),ORG=LOCAL 00010360 //* 00010370 //*FORMAT PR,DDNAME=ARCHAD12.FT06F001,DEST=LOCAL 00010380 //*FORMAT PR,DDNAME=ARCHAD18.FT06F001,DEST=LOCAL 00010390 //*FORMAT PR,DDNAME=INVENTRV.FT06F001,DEST=WWBAD1 00010400 //* 00010410 //* 2-8-93 *** NOTE *** 00010420 //* INVENTORY SET TO PRINT AT WWBAD1 ONLY, 00010430 //* NO COPY FOR LOCAL/$AVRS DUE TO MAX LINES PRINTOUT AT 12Z 00010440 //* 00010450 //*NET ID=WN00ZNMC,HC=1 00010460 //ACFSATON EXEC PGM=ACFSATON 00010470 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00010480 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00010490 //FT03F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR 00010500 //FT06F001 DD SYSOUT=A 00010510 //FT05F001 DD DSN=NMC.PROD.JCDATA(ACFSATON),DISP=SHR,LABEL=(,,,IN) 00010520 //FT08F001 DD DSN=NMC.PROD.AIRCFTON,DISP=SHR 00010530 //FT09F001 DD DSN=NMC.PROD.SATWNDON,DISP=SHR 00010540 //FT10F001 DD DSN=NMC.PROD.SATWND.T12Z.HOLD,DISP=SHR 00010550 //FT11F001 DD DSN=NMC.PROD.AIRCFT.DELETE,DISP=SHR 00010560 //FT58F001 DD DSN=&&AIRCFT12,UNIT=SYSWK,SPACE=(TRK,(25)), 00010570 // DCB=(RECFM=VS,BLKSIZE=6440,LRECL=6436),DISP=(NEW,PASS) 00010580 //FT59F001 DD DSN=&&SATWND12,DCB=(RECFM=VS,LRECL=6436,BLKSIZE=6440), 00010590 // SPACE=(TRK,(25,2)),UNIT=SYSWK,DISP=(NEW,PASS) 00010600 //* 00010610 //ARCHAD12 EXEC PGM=ARCHADP4,PARM='FILE(08),POST(54)',COND=EVEN 00010620 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00010630 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00010640 //FT02F001 DD DSN=NMC.PROD.ARCHIVE.DATE,DISP=SHR 00010650 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1995) 00010660 //FT10F001 DD DSN=NMC.PROD.ADPSFC.T12Z.CUR,DISP=SHR 00010670 //FT11F001 DD DSN=NMC.PROD.SFCSHP.T12Z.CUR,DISP=SHR 00010680 //FT12F001 DD DSN=NMC.PROD.ADPSFC.LATEST(C15Z),DISP=SHR,LABEL=(,,,IN) 00010690 //FT13F001 DD DSN=NMC.PROD.SFCBOG.T12Z.CUR,DISP=SHR 00010700 //FT14F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00010710 //FT15F001 DD DSN=&&AIRCFT12,DISP=(OLD,DELETE) 00010720 //FT16F001 DD DSN=NMC.PROD.SATWND.T12Z.CUR,DISP=SHR 00010730 //FT17F001 DD DSN=NMC.PROD.UPABOG.T12Z.CUR,DISP=SHR 00010740 //* 00010750 //* ***************ARCHIVE DATASETS************ 00010760 //* 00010770 //ADPSFC12 DD DSN=NMC.PROD.ARKV.SFCSM,DISP=SHR 00010780 //SFCSHP12 DD DSN=NMC.PROD.ARKV.SFCSHP,DISP=SHR 00010790 //ADPSFC15 DD DSN=NMC.PROD.ARKV.SFCSI,DISP=SHR 00010800 //SFCBOG12 DD DSN=NMC.PROD.ARKV.SFCBOG,DISP=SHR 00010810 //ADPUPA12 DD DSN=NMC.PROD.ARKV.ADPUPA.T0012Z,DISP=SHR 00010820 //AIRCFT12 DD DSN=NMC.PROD.ARKV.AIRCFT,DISP=SHR 00010830 //SATWND12 DD DSN=NMC.PROD.ARKV.SATWND,DISP=SHR 00010840 //UPABOG12 DD DSN=NMC.PROD.ARKV.UPABOG,DISP=SHR 00010850 //* 00010860 //ACFSATON EXEC PGM=ACFSATON 00010870 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00010880 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00010890 //FT03F001 DD DSN=NMC.PROD.DATE(T18Z),DISP=SHR 00010900 //FT06F001 DD SYSOUT=A 00010910 //FT05F001 DD DSN=NMC.PROD.JCDATA(ACFSATON),DISP=SHR,LABEL=(,,,IN) 00010920 //FT08F001 DD DSN=NMC.PROD.AIRCFTON,DISP=SHR 00010930 //FT09F001 DD DSN=NMC.PROD.SATWNDON,DISP=SHR 00010940 //FT10F001 DD DSN=NMC.PROD.SATWND.T18Z.HOLD,DISP=SHR 00010950 //FT11F001 DD DSN=NMC.PROD.AIRCFT.DELETE,DISP=SHR 00010960 //FT58F001 DD DSN=&&AIRCFT18,UNIT=SYSWK,SPACE=(TRK,(25)), 00010970 // DCB=(RECFM=VS,BLKSIZE=6440,LRECL=6436),DISP=(NEW,PASS) 00010980 //FT59F001 DD DSN=&&SATWND18,DCB=(RECFM=VS,LRECL=6436,BLKSIZE=6440), 00010990 // SPACE=(TRK,(25,2)),UNIT=SYSWK,DISP=(NEW,PASS) 00011000 //* 00011010 //ARCHAD18 EXEC PGM=ARCHADP4,PARM='FILE(6),POST(63)',COND=EVEN 00011020 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00011030 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00011040 //FT02F001 DD DSN=NMC.PROD.ARCHIVE.DATE,DISP=SHR 00011050 //FT06F001 DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1995) 00011060 //FT10F001 DD DSN=NMC.PROD.ADPSFC.T18Z.CUR,DISP=SHR 00011070 //FT11F001 DD DSN=NMC.PROD.SFCSHP.T18Z.CUR,DISP=SHR 00011080 //FT12F001 DD DSN=NMC.PROD.ADPSFC.LATEST(C21Z),DISP=SHR,LABEL=(,,,IN) 00011090 //FT13F001 DD DSN=NMC.PROD.ADPUPA.T18Z.CUR,DISP=SHR 00011100 //FT14F001 DD DSN=&&AIRCFT18,DISP=(OLD,DELETE) 00011110 //FT15F001 DD DSN=NMC.PROD.SATWND.T18Z.CUR,DISP=SHR 00011120 //* 00011130 //* ***************ARCHIVE DATASETS*************** 00011140 //* 00011150 //ADPSFC18 DD DSN=NMC.PROD.ARKV.SFCSM,DISP=SHR 00011160 //SFCSHP18 DD DSN=NMC.PROD.ARKV.SFCSHP,DISP=SHR 00011170 //ADPSFC21 DD DSN=NMC.PROD.ARKV.SFCSI,DISP=SHR 00011180 //ADPUPA18 DD DSN=NMC.PROD.ARKV.ADPUPA.T0618Z,DISP=SHR 00011190 //AIRCFT18 DD DSN=NMC.PROD.ARKV.AIRCFT,DISP=SHR 00011200 //SATWND18 DD DSN=NMC.PROD.ARKV.SATWND,DISP=SHR 00011210 //* 00011220 //INVENTRV EXEC PGM=INVENV,COND=EVEN 00011230 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00011240 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00011250 //GES DD DSN=NMC.PROD.VGES.T12Z,DISP=SHR 00011260 //VLF00 DD DSN=NMC.PROD.VLF00.T12Z.ETA,DISP=SHR 00011270 //VLF06 DD DSN=NMC.PROD.VLF06.T12Z.ETA,DISP=SHR 00011280 //VLF12 DD DSN=NMC.PROD.VLF12.T12Z.ETA,DISP=SHR 00011290 //VLF18 DD DSN=NMC.PROD.VLF18.T12Z.ETA,DISP=SHR 00011300 //VLF24 DD DSN=NMC.PROD.VLF24.T12Z.ETA,DISP=SHR 00011310 //VLF30 DD DSN=NMC.PROD.VLF30.T12Z.ETA,DISP=SHR 00011320 //VLF36 DD DSN=NMC.PROD.VLF36.T12Z.ETA,DISP=SHR 00011330 //VLF42 DD DSN=NMC.PROD.VLF42.T12Z.ETA,DISP=SHR 00011340 //VLF48 DD DSN=NMC.PROD.VLF48.T12Z.ETA,DISP=SHR 00011350 //VLF00XP DD DSN=NMC.PROD.VLF00XP.T12Z.ETA,DISP=SHR 00011360 //VLF06XP DD DSN=NMC.PROD.VLF06XP.T12Z.ETA,DISP=SHR 00011370 //VLF12XP DD DSN=NMC.PROD.VLF12XP.T12Z.ETA,DISP=SHR 00011380 //VLF18XP DD DSN=NMC.PROD.VLF18XP.T12Z.ETA,DISP=SHR 00011390 //VLF24XP DD DSN=NMC.PROD.VLF24XP.T12Z.ETA,DISP=SHR 00011400 //VLF30XP DD DSN=NMC.PROD.VLF30XP.T12Z.ETA,DISP=SHR 00011410 //VLF36XP DD DSN=NMC.PROD.VLF36XP.T12Z.ETA,DISP=SHR 00011420 //VLF42XP DD DSN=NMC.PROD.VLF42XP.T12Z.ETA,DISP=SHR 00011430 //VLF48XP DD DSN=NMC.PROD.VLF48XP.T12Z.ETA,DISP=SHR 00011440 //VLFM00 DD DSN=NMC.PROD.VLFM00.T12Z.ETA,DISP=SHR 00011450 //VLFM12 DD DSN=NMC.PROD.VLFM12.T12Z.ETA,DISP=SHR 00011460 //VLFM24 DD DSN=NMC.PROD.VLFM24.T12Z.ETA,DISP=SHR 00011470 //VLFM36 DD DSN=NMC.PROD.VLFM36.T12Z.ETA,DISP=SHR 00011480 //VLFM48 DD DSN=NMC.PROD.VLFM48.T12Z.ETA,DISP=SHR 00011490 //RANL DD DSN=NMC.PROD.VRANL.T12Z.RGL,DISP=SHR 00011500 //RF00 DD DSN=NMC.PROD.VRF00.T12Z.RGL,DISP=SHR 00011510 //RF06 DD DSN=NMC.PROD.VRF06.T12Z.RGL,DISP=SHR 00011520 //RF12 DD DSN=NMC.PROD.VRF12.T12Z.RGL,DISP=SHR 00011530 //RF18 DD DSN=NMC.PROD.VRF18.T12Z.RGL,DISP=SHR 00011540 //RF24 DD DSN=NMC.PROD.VRF24.T12Z.RGL,DISP=SHR 00011550 //RF30 DD DSN=NMC.PROD.VRF30.T12Z.RGL,DISP=SHR 00011560 //RF36 DD DSN=NMC.PROD.VRF36.T12Z.RGL,DISP=SHR 00011570 //RF42 DD DSN=NMC.PROD.VRF42.T12Z.RGL,DISP=SHR 00011580 //RF48 DD DSN=NMC.PROD.VRF48.T12Z.RGL,DISP=SHR 00011590 //RANLXP DD DSN=NMC.PROD.VRANLXP.T12Z.RGL,DISP=SHR 00011600 //RF00XP DD DSN=NMC.PROD.VRF00XP.T12Z.RGL,DISP=SHR 00011610 //RF06XP DD DSN=NMC.PROD.VRF06XP.T12Z.RGL,DISP=SHR 00011620 //RF12XP DD DSN=NMC.PROD.VRF12XP.T12Z.RGL,DISP=SHR 00011630 //RF18XP DD DSN=NMC.PROD.VRF18XP.T12Z.RGL,DISP=SHR 00011640 //RF24XP DD DSN=NMC.PROD.VRF24XP.T12Z.RGL,DISP=SHR 00011650 //RF30XP DD DSN=NMC.PROD.VRF30XP.T12Z.RGL,DISP=SHR 00011660 //RF36XP DD DSN=NMC.PROD.VRF36XP.T12Z.RGL,DISP=SHR 00011670 //RF42XP DD DSN=NMC.PROD.VRF42XP.T12Z.RGL,DISP=SHR 00011680 //RF48XP DD DSN=NMC.PROD.VRF48XP.T12Z.RGL,DISP=SHR 00011690 //ANL DD DSN=NMC.PROD.VANL.T12Z.AVN,DISP=SHR 00011700 //F00 DD DSN=NMC.PROD.VF00.T12Z.AVN,DISP=SHR 00011710 //F06 DD DSN=NMC.PROD.VF06.T12Z.AVN,DISP=SHR 00011720 //F12 DD DSN=NMC.PROD.VF12.T12Z.AVN,DISP=SHR 00011730 //F18 DD DSN=NMC.PROD.VF18.T12Z.AVN,DISP=SHR 00011740 //F24 DD DSN=NMC.PROD.VF24.T12Z.AVN,DISP=SHR 00011750 //F30 DD DSN=NMC.PROD.VF30.T12Z.AVN,DISP=SHR 00011760 //F36 DD DSN=NMC.PROD.VF36.T12Z.AVN,DISP=SHR 00011770 //F42 DD DSN=NMC.PROD.VF42.T12Z.AVN,DISP=SHR 00011780 //F48 DD DSN=NMC.PROD.VF48.T12Z.AVN,DISP=SHR 00011790 //F54 DD DSN=NMC.PROD.VF54.T12Z.AVN,DISP=SHR 00011800 //F60 DD DSN=NMC.PROD.VF60.T12Z.AVN,DISP=SHR 00011810 //F66 DD DSN=NMC.PROD.VF66.T12Z.AVN,DISP=SHR 00011820 //F72 DD DSN=NMC.PROD.VF72.T12Z.AVN,DISP=SHR 00011830 //AGF12 DD DSN=NMC.PROD.VGF12.T12Z.AVN,DISP=SHR 00011840 //S00 DD DSN=NMC.PROD.VS00.T12Z.AVN,DISP=SHR 00011850 //S12 DD DSN=NMC.PROD.VS12.T12Z.AVN,DISP=SHR 00011860 //S24 DD DSN=NMC.PROD.VS24.T12Z.AVN,DISP=SHR 00011870 //S36 DD DSN=NMC.PROD.VS36.T12Z.AVN,DISP=SHR 00011880 //S48 DD DSN=NMC.PROD.VS48.T12Z.AVN,DISP=SHR 00011890 //S60 DD DSN=NMC.PROD.VS60.T12Z.AVN,DISP=SHR 00011900 //S72 DD DSN=NMC.PROD.VS72.T12Z.AVN,DISP=SHR 00011910 //GRIBMX DD DSN=NMC.PROD.VGRIBMXW.S12ZFLDS,DISP=SHR 00011920 //ANL5 DD DSN=NMC.PROD.VANL.T12Z.FNL,DISP=SHR 00011930 //GANL12 DD DSN=NMC.PROD.VGANL.T12Z.FNL,DISP=SHR 00011940 //ANL18 DD DSN=NMC.PROD.VANL.T18Z.FNL,DISP=SHR 00011950 //GANL18 DD DSN=NMC.PROD.VGANL.T18Z.FNL,DISP=SHR 00011960 //GF06 DD DSN=NMC.PROD.VGF06.T12Z.FNL,DISP=SHR 00011970 //GF12 DD DSN=NMC.PROD.VGF12.T12Z.FNL,DISP=SHR 00011980 //FNOC DD DSN=NMC.PROD.T12Z.VFNOCFLD,DISP=SHR 00011990 //UK00 DD DSN=NMC.PROD.VF00.T12Z.UKMET,DISP=SHR 00012000 //UK12 DD DSN=NMC.PROD.VF12.T12Z.UKMET,DISP=SHR 00012010 //UK24 DD DSN=NMC.PROD.VF24.T12Z.UKMET,DISP=SHR 00012020 //UK36 DD DSN=NMC.PROD.VF36.T12Z.UKMET,DISP=SHR 00012030 //UK48 DD DSN=NMC.PROD.VF48.T12Z.UKMET,DISP=SHR 00012040 //UK60 DD DSN=NMC.PROD.VF60.T12Z.UKMET,DISP=SHR 00012050 //UK72 DD DSN=NMC.PROD.VF72.T12Z.UKMET,DISP=SHR 00012060 //UKXN DD DSN=NMC.PROD.VFXN.T12Z.UKMET,DISP=SHR 00012070 //FT05F001 DD * 00012080 GES 000255 00012090 VLF00 002555 00012100 VLF06 002555 00012110 VLF12 002555 00012120 VLF18 002555 00012130 VLF24 002555 00012140 VLF30 002555 00012150 VLF36 002555 00012160 VLF42 002555 00012170 VLF48 002555 00012180 VLF00XP 002555 00012190 VLF06XP 002555 00012200 VLF12XP 002555 00012210 VLF18XP 002555 00012220 VLF24XP 002555 00012230 VLF30XP 002555 00012240 VLF36XP 002555 00012250 VLF42XP 002555 00012260 VLF48XP 002555 00012270 VLFM00 002555 00012280 VLFM12 002555 00012290 VLFM24 002555 00012300 VLFM36 002555 00012310 VLFM48 002555 00012320 RANL 000255 00012330 RF00 000255 00012340 RF06 000255 00012350 RF12 000255 00012360 RF18 000255 00012370 RF24 000255 00012380 RF30 000255 00012390 RF36 000255 00012400 RF42 000255 00012410 RF48 000255 00012420 RANLXP 000255 00012430 RF00XP 000255 00012440 RF06XP 000255 00012450 RF12XP 000255 00012460 RF18XP 000255 00012470 RF24XP 000255 00012480 RF30XP 000255 00012490 RF36XP 000255 00012500 RF42XP 000255 00012510 RF48XP 000255 00012520 ANL 000255 00012530 F00 000255 00012540 F06 000255 00012550 F12 000255 00012560 F18 000255 00012570 F24 000255 00012580 F30 000255 00012590 F36 000255 00012600 F42 000255 00012610 F48 000255 00012620 F54 000255 00012630 F60 000255 00012640 F66 000255 00012650 F72 000255 00012660 S00 000255 00012670 S12 000255 00012680 S24 000255 00012690 S36 000255 00012700 S48 000255 00012710 S60 000255 00012720 S72 000255 00012730 AGF12 000255 00012740 GRIBMX 000255 00012750 ANL5 000255 00012760 GANL12 000255 00012770 ANL18 000255 00012780 GANL18 000255 00012790 GF06 000255 00012800 GF12 000255 00012810 FNOC 000255 00012820 UK00 000255 00012830 UK12 000255 00012840 UK24 000255 00012850 UK36 000255 00012860 UK48 000255 00012870 UK60 000255 00012880 UK72 000255 00012890 UKXN 000255 00012900 /* 00012910 //FT06F001 DD SYSOUT=A 00012920 //* 00012930 //INVENG EXEC PGM=INVENG 00012940 //STEPLIB DD DSN=NMC.PROD.PAN2.LOAD,DISP=SHR 00012950 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00012960 //FT05F001 DD * 00012970 ECMWF 1 00012980 /* 00012990 //FT06F001 DD DSN=&&TEMP06,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408), 00013000 // UNIT=SYSWK,SPACE=(CYL,(4,2)),DISP=(NEW,PASS) 00013010 //ECMWF DD DSN=NMC.PROD.ECMWF.ECGRIBDA,DISP=SHR 00013020 //* 00013030 //COPYSAVR EXEC PGM=IEBGENER 00013040 //SYSIN DD DUMMY 00013050 //SYSPRINT DD DUMMY 00013060 //SYSUT1 DD DSN=&&TEMP06,DISP=(OLD,PASS) 00013070 //SYSUT2 DD SYSOUT=R 00013080 //* 00013090 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00013100 //* ABOVE DECK CREATED TUESDAY FEB 27, 1996 - 1235 53.58 LST 00013110 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00013120 // 00013130 //WW0150A7 JOB (WX11008M1H1040X,WWB3-A10),'VLCEK',REGION=2000K,TIME=3, 00013140 // MSGCLASS=R 00013150 //*MAIN CLASS=NMC3,ORG=WWBMD1 00013160 //*FORMAT PR,DDNAME=QCADP.FT06F001,DEST=WWBAD1 00013170 //* 00013180 //* FINAL BAROTROPIC RUNS AT AT 00Z ONLY 00013190 //* 00013200 //* APPLY RADIATION CORRECTIONS TO RADIOSONDE DATA 00013210 //* 00013220 //*NET ID=WN00ZNMC,HC=1 00013230 //RADNCORR EXEC PGM=RADNCORR 00013240 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00013250 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00013260 //FT05F001 DD DSN=NMC.PROD.JCDATA(RADNCORR),DISP=SHR,LABEL=(,,,IN) 00013270 //FT06F001 DD DSN=&&TEMP06,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408), 00013280 // UNIT=SYSWK,SPACE=(CYL,(4,2)),DISP=(NEW,PASS) 00013290 //FT11F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00013300 //FT51F001 DD DSN=&&ADPUPA,DISP=(NEW,PASS),UNIT=SYSWK, 00013310 // SPACE=(TRK,200),DCB=(RECFM=VS,LRECL=6436,BLKSIZE=6440) 00013320 //* 00013330 //* FETCH ANALYSIS TO TOSS OUT BAD RAOB DATA (IN ACUMVER4) 00013340 //* 00013350 //DISARCHM EXEC PGM=DISARCV 00013360 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00013370 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00013380 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00013390 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00013400 //FT11F001 DD DUMMY 00013410 //ANL DD DSN=&&ANL,DISP=(NEW,PASS), 00013420 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00013430 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VAVN,DISP=SHR 00013440 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VAVN,DISP=SHR 00013450 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VAVN,DISP=SHR 00013460 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VAVN,DISP=SHR 00013470 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VAVN,DISP=SHR 00013480 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VAVN,DISP=SHR 00013490 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VAVN,DISP=SHR 00013500 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VAVN,DISP=SHR 00013510 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VAVN,DISP=SHR 00013520 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VAVN,DISP=SHR 00013530 //FT05F001 DD * 00013540 ANL 00013550 /* 00013560 //* 00013570 //* QUALITY CONTROL FOR RADIOSONDE DATA (N. HEMISPHERE); 00013580 //* SAVE Z,T,RH,U,V AT 850, 500, 250, AND 100 MB 00013590 //* FOR LATER USE BY ACUMVER1 AND ACUMVER4 THRU JB 155, 00013600 //* AND ULTIMATELY FOR ARCHIVING (VIA IJP'D JB WWCLVADP). 00013610 //* 00013620 //QCADP EXEC PGM=QCADP 00013630 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00013640 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00013650 //ANL DD DSN=&&ANL,DISP=(OLD,DELETE) 00013660 //FT06F001 DD SYSOUT=R 00013670 //FT20F001 DD DSN=&&ADPUPA,DISP=(OLD,DELETE) 00013680 //FT60F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00013690 //FT70F001 DD DSN=NMC.PROD.ADPTOSSX.ARCHIVES,DISP=MOD 00013700 //FT05F001 DD * 00013710 &ANLFIL ANLS='ANL', &END 00013720 /* 00013730 //* 00013740 //* FETCH BAROTROPIC FORECASTS TO BE VERIFIED 00013750 //* 00013760 //DISARCB2 EXEC PGM=DISARCV 00013770 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00013780 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00013790 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00013800 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00013810 //FT11F001 DD DUMMY 00013820 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VBT2,DISP=SHR 00013830 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VBT2,DISP=SHR 00013840 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VBT2,DISP=SHR 00013850 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VBT2,DISP=SHR 00013860 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VBT2,DISP=SHR 00013870 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VBT2,DISP=SHR 00013880 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VBT2,DISP=SHR 00013890 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VBT2,DISP=SHR 00013900 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VBT2,DISP=SHR 00013910 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VBT2,DISP=SHR 00013920 //F12BT2 DD DSN=&&F12BT2,DISP=(NEW,PASS), 00013930 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00013940 //F36BT2 DD DSN=&&F36BT2,DISP=(NEW,PASS), 00013950 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00013960 //FT05F001 DD * 00013970 F12BT2 F36BT2 00013980 /* 00013990 //* 00014000 //* FETCH ECMWF FORECASTS TO BE VERIFIED (NORTHERN HEMISPHERE) 00014010 //* 00014020 //DISARCEC EXEC PGM=DISARCV 00014030 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00014040 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00014050 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00014060 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00014070 //FT11F001 DD DUMMY 00014080 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VECM,DISP=SHR 00014090 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VECM,DISP=SHR 00014100 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VECM,DISP=SHR 00014110 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VECM,DISP=SHR 00014120 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VECM,DISP=SHR 00014130 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VECM,DISP=SHR 00014140 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VECM,DISP=SHR 00014150 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VECM,DISP=SHR 00014160 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VECM,DISP=SHR 00014170 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VECM,DISP=SHR 00014180 //F24ECM DD DSN=&&F24ECM,DISP=(NEW,PASS), 00014190 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00014200 //F48ECM DD DSN=&&F48ECM,DISP=(NEW,PASS), 00014210 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00014220 //F72ECM DD DSN=&&F72ECM,DISP=(NEW,PASS), 00014230 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00014240 //F96ECM DD DSN=&&F96ECM,DISP=(NEW,PASS), 00014250 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00014260 //F120ECM DD DSN=&&F120ECM,DISP=(NEW,PASS), 00014270 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00014280 //F144ECM DD DSN=&&F144ECM,DISP=(NEW,PASS), 00014290 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00014300 //FT05F001 DD * 00014310 F24ECM F48ECM F72ECM 00014320 F96ECM F120ECM F144ECM 00014330 /* 00014340 //* 00014350 //* INITIALIZE ACCUMULATION FILES FOR USE BY ACUMVER1 00014360 //* 00014370 //STRTVER1 EXEC PGM=STRTVER1 00014380 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00014390 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00014400 //ANL DD DSN=NMC.PROD.VANL.T12Z.AVN,DISP=SHR 00014410 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00014420 //FT08F001 DD DSN=NMC.PROD.JCDATA(NH102),DISP=SHR,LABEL=(,,,IN) 00014430 // DD DSN=NMC.PROD.JCDATA(ALA23),DISP=SHR,LABEL=(,,,IN) 00014440 // DD DSN=NMC.PROD.JCDATA(WNA37),DISP=SHR,LABEL=(,,,IN) 00014450 // DD DSN=NMC.PROD.JCDATA(ENA73),DISP=SHR,LABEL=(,,,IN) 00014460 // DD DSN=NMC.PROD.JCDATA(NA110),DISP=SHR,LABEL=(,,,IN) 00014470 // DD DSN=NMC.PROD.JCDATA(EUR96),DISP=SHR,LABEL=(,,,IN) 00014480 //V012BTPF DD DSN=&&V012BTPF,DISP=(NEW,PASS),UNIT=SYSWK, 00014490 // SPACE=(CYL,2,,CONTIG) 00014500 //V036BTPF DD DSN=&&V036BTPF,DISP=(NEW,PASS),UNIT=SYSWK, 00014510 // SPACE=(CYL,2,,CONTIG) 00014520 //V024ECMN DD DSN=&&V024ECMN,DISP=(NEW,PASS),UNIT=SYSWK, 00014530 // SPACE=(CYL,2,,CONTIG) 00014540 //V048ECMN DD DSN=&&V048ECMN,DISP=(NEW,PASS),UNIT=SYSWK, 00014550 // SPACE=(CYL,2,,CONTIG) 00014560 //V072ECMN DD DSN=&&V072ECMN,DISP=(NEW,PASS),UNIT=SYSWK, 00014570 // SPACE=(CYL,2,,CONTIG) 00014580 //V096ECMN DD DSN=&&V096ECMN,DISP=(NEW,PASS),UNIT=SYSWK, 00014590 // SPACE=(CYL,2,,CONTIG) 00014600 //V120ECMN DD DSN=&&V120ECMN,DISP=(NEW,PASS),UNIT=SYSWK, 00014610 // SPACE=(CYL,2,,CONTIG) 00014620 //V144ECMN DD DSN=&&V144ECMN,DISP=(NEW,PASS),UNIT=SYSWK, 00014630 // SPACE=(CYL,2,,CONTIG) 00014640 //FT05F001 DD DSN=NMC.PROD.JCDATA(STRTVER1),DISP=SHR,LABEL=(,,,IN) 00014650 //* 00014660 //* 00014670 //* VERIFY FINAL BAROTROPIC FORECASTS 00014680 //* 00014690 //VBAROT EXEC PGM=ACUMVER1 00014700 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00014710 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00014720 //X012BTPF DD DSN=&&F12BT2,DISP=(OLD,DELETE) 00014730 //X036BTPF DD DSN=&&F36BT2,DISP=(OLD,DELETE) 00014740 //V012BTPF DD DSN=&&V012BTPF,DISP=(OLD,PASS) 00014750 //V036BTPF DD DSN=&&V036BTPF,DISP=(OLD,PASS) 00014760 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00014770 //FT09F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00014780 //FT10F001 DD DSN=NMC.PROD.ADPVER1.DLYSTATS,DISP=MOD 00014790 //FT05F001 DD * 00014800 &ANLFIL VDATE1=00010100, VDATE2=99123112, &END 00014810 &FILES NFILE=2, FORFIL='X012BTPF','X036BTPF', WRSTAT=T, &END 00014820 /* 00014830 //* 00014840 //* VERIFY ECMWF FORECASTS (RUN AT START OF 00Z CYCLE) 00014850 //* (USING 12Z DATA) 00014860 //* 00014870 //* ACCUMULATE STATISTICS (12Z VERIFICATIONS ONLY) 00014880 //* 00014890 //VECMWF EXEC PGM=ACUMVER1 00014900 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00014910 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00014920 //X024ECMN DD DSN=&&F24ECM,DISP=(OLD,DELETE) 00014930 //X048ECMN DD DSN=&&F48ECM,DISP=(OLD,DELETE) 00014940 //X072ECMN DD DSN=&&F72ECM,DISP=(OLD,DELETE) 00014950 //X096ECMN DD DSN=&&F96ECM,DISP=(OLD,DELETE) 00014960 //X120ECMN DD DSN=&&F120ECM,DISP=(OLD,DELETE) 00014970 //X144ECMN DD DSN=&&F144ECM,DISP=(OLD,DELETE) 00014980 //V024ECMN DD DSN=&&V024ECMN,DISP=(OLD,PASS) 00014990 //V048ECMN DD DSN=&&V048ECMN,DISP=(OLD,PASS) 00015000 //V072ECMN DD DSN=&&V072ECMN,DISP=(OLD,PASS) 00015010 //V096ECMN DD DSN=&&V096ECMN,DISP=(OLD,PASS) 00015020 //V120ECMN DD DSN=&&V120ECMN,DISP=(OLD,PASS) 00015030 //V144ECMN DD DSN=&&V144ECMN,DISP=(OLD,PASS) 00015040 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00015050 //FT09F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00015060 //FT10F001 DD DSN=NMC.PROD.ADPVER1.DLYSTATS,DISP=MOD 00015070 //FT05F001 DD * 00015080 &ANLFIL VDATE1=00010100, VDATE2=99123112, &END 00015090 &FILES NFILE=6, RPT=2, FORFIL='X024ECMN','X048ECMN','X072ECMN' ,&END 00015100 &FILES FORFIL(4)='X096ECMN', FORFIL(5)='X120ECMN', &END 00015110 &FILES FORFIL(6)='X144ECMN', WRSTAT=T, &END 00015120 /* 00015130 //* 00015140 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00015150 //* 00015160 //COPYPRT1 EXEC PGM=IEBGENER,COND=((0,EQ,NOPRINT),EVEN) 00015170 //SYSIN DD DUMMY 00015180 //SYSPRINT DD DUMMY 00015190 //SYSUT1 DD DSN=&&TEMP06,DISP=(OLD,PASS) 00015200 //SYSUT2 DD SYSOUT=A 00015210 //* 00015220 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00015230 //* ABOVE DECK CREATED THURSDAY JUL 29, 1993 - 1124 20.18 LST 00015240 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00015250 // 00015260 //WW0151A7 JOB (WX11008M1H1040X,WWB3-A10),'VLCEK',REGION=2000K,TIME=2, 00015270 // MSGCLASS=R 00015280 //*MAIN CLASS=NMC3,ORG=WWBAD1 00015290 //* 00015300 //* SOUTHERN HEMISPHERE SMG3C FOR SUMAC 00015310 //* 00015320 //* APPLY RADIATION CORRECTIONS TO RADIOSONDE DATA 00015330 //* 00015340 //*NET ID=WN00ZNMC,HC=1 00015350 //RADCOR12 EXEC PGM=RADNCORR 00015360 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00015370 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00015380 //FT05F001 DD DSN=NMC.PROD.JCDATA(RADNCORR),DISP=SHR,LABEL=(,,,IN) 00015390 //FT06F001 DD DSN=&&TEMP06,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408), 00015400 // UNIT=SYSWK,SPACE=(CYL,(4,2)),DISP=(NEW,PASS) 00015410 //FT11F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00015420 //FT51F001 DD DSN=&&ADPUPA,DISP=(NEW,PASS),UNIT=SYSWK, 00015430 // SPACE=(TRK,200),DCB=(RECFM=VS,LRECL=6436,BLKSIZE=6440) 00015440 //* 00015450 //* GET ANALYSIS & FORECASTS THAT VERIFY AT ADP DATE/TIME 00015460 //* 00015470 //DISARCSP EXEC PGM=DISARCV 00015480 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00015490 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00015500 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VAVNC,DISP=SHR 00015510 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VAVNC,DISP=SHR 00015520 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VAVNC,DISP=SHR 00015530 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VAVNC,DISP=SHR 00015540 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VAVNC,DISP=SHR 00015550 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VAVNC,DISP=SHR 00015560 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VAVNC,DISP=SHR 00015570 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VAVNC,DISP=SHR 00015580 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VAVNC,DISP=SHR 00015590 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VAVNC,DISP=SHR 00015600 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VAVNC,DISP=SHR 00015610 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VAVNC,DISP=SHR 00015620 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VAVNC,DISP=SHR 00015630 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VAVNC,DISP=SHR 00015640 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VAVNC,DISP=SHR 00015650 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VAVNC,DISP=SHR 00015660 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VAVNC,DISP=SHR 00015670 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VAVNC,DISP=SHR 00015680 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VAVNC,DISP=SHR 00015690 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VAVNC,DISP=SHR 00015700 //S00 DD DSN=&&S00,DISP=(NEW,PASS), 00015710 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00015720 //S12 DD DSN=&&S12,DISP=(NEW,PASS), 00015730 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00015740 //S24 DD DSN=&&S24,DISP=(NEW,PASS), 00015750 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00015760 //P24 DD DSN=&&P24,DISP=(NEW,PASS), 00015770 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00015780 //S36 DD DSN=&&S36,DISP=(NEW,PASS), 00015790 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00015800 //S48 DD DSN=&&S48,DISP=(NEW,PASS), 00015810 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00015820 //S60 DD DSN=&&S60,DISP=(NEW,PASS), 00015830 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00015840 //S72 DD DSN=&&S72,DISP=(NEW,PASS), 00015850 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00015860 //FT05F001 DD * 00015870 S00 S12 S24 S36 S48 S60 S72 00015880 00015890 00015900 P24 00015910 /* 00015920 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00015930 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00015940 //FT11F001 DD DUMMY 00015950 //* 00015960 //* SPECTRAL RANDOM TO LOLA RANDOM ACCESS 00015970 //* 00015980 //SEBVSHEM EXEC PGM=SEBVSHEM 00015990 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00016000 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00016010 //S00 DD DSN=&&S00,DISP=(OLD,DELETE) 00016020 //S12 DD DSN=&&S12,DISP=(OLD,DELETE) 00016030 //S24 DD DSN=&&S24,DISP=(OLD,DELETE) 00016040 //S25 DD DSN=&&P24,DISP=(OLD,DELETE) 00016050 //S36 DD DSN=&&S36,DISP=(OLD,DELETE) 00016060 //S48 DD DSN=&&S48,DISP=(OLD,DELETE) 00016070 //S60 DD DSN=&&S60,DISP=(OLD,DELETE) 00016080 //S72 DD DSN=&&S72,DISP=(OLD,DELETE) 00016090 //F00 DD DSN=&&LS00,DISP=(NEW,PASS), 00016100 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00016110 //F12 DD DSN=&&LS12,DISP=(NEW,PASS), 00016120 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00016130 //F24 DD DSN=&&LS24,DISP=(NEW,PASS), 00016140 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00016150 //F25 DD DSN=&&LP24,DISP=(NEW,PASS), 00016160 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00016170 //F36 DD DSN=&&LS36,DISP=(NEW,PASS), 00016180 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00016190 //F48 DD DSN=&&LS48,DISP=(NEW,PASS), 00016200 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00016210 //F60 DD DSN=&&LS60,DISP=(NEW,PASS), 00016220 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00016230 //F72 DD DSN=&&LS72,DISP=(NEW,PASS), 00016240 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00016250 //WORK DD UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00016260 //FT05F001 DD DSN=NMC.PROD.JCDATA(SEBVSHEM),DISP=SHR,LABEL=(,,,IN) 00016270 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00016280 //* 00016290 //* 00016300 //* SAVE SELECTED ADP DATA (AFTER QUALITY CHECKS AND TOSSOUTS) 00016310 //* 00016320 //* 00016330 //* QUALITY CONTROL FOR RADIOSONDE DATA (S. HEMISPHERE); 00016340 //* SAVE Z,T,RH,U,V AT 850, 500, 250, AND 100 MB 00016350 //* FOR LATER USE BY ACUMVER1 AND ACUMVER4 THRU JB 155, 00016360 //* AND ULTIMATELY FOR ARCHIVING (VIA IJP'D JB WWCLVADP). 00016370 //* 00016380 //QCADPSH EXEC PGM=QCADP 00016390 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00016400 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00016410 //ANL DD DSN=&&LS00,DISP=(OLD,PASS) 00016420 //FT06F001 DD SYSOUT=R 00016430 //FT20F001 DD DSN=&&ADPUPA,DISP=(OLD,PASS) 00016440 //FT60F001 DD DSN=NMC.PROD.ADPVERSH.T12Z.CUR,DISP=SHR 00016450 //FT70F001 DD DSN=NMC.PROD.ADPTOSSX.ARCHIVES,DISP=MOD 00016460 //FT05F001 DD * 00016470 &ANLFIL ANLS='ANL', &END 00016480 /* 00016490 //* 00016500 //* 00016510 //* VERIFY SOUTHERN HEM. AVIATION AND PERSISTENCE 00016520 //* 00016530 //VERIFY EXEC PGM=SUMAC4 00016540 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00016550 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00016560 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00016570 //FT20F001 DD DSN=NMC.PROD.JCDATA(SH31),DISP=SHR,LABEL=(,,,IN) 00016580 // DD DSN=NMC.PROD.JCDATA(AUS24),DISP=SHR,LABEL=(,,,IN) 00016590 // DD DSN=NMC.PROD.JCDATA(SPA22),DISP=SHR,LABEL=(,,,IN) 00016600 // DD DSN=NMC.PROD.JCDATA(SAM30),DISP=SHR,LABEL=(,,,IN) 00016610 // DD DSN=NMC.PROD.JCDATA(SAF20),DISP=SHR,LABEL=(,,,IN) 00016620 //FT30F001 DD DSN=NMC.PROD.ADPVERSH.T12Z.CUR,DISP=SHR 00016630 //FT60F001 DD DSN=NMC.PROD.ADPVER4.DLYSTATS,DISP=MOD 00016640 //F000LRGS DD DSN=&&LS00,DISP=(OLD,DELETE) 00016650 //F012LRGS DD DSN=&&LS12,DISP=(OLD,DELETE) 00016660 //F024LRGS DD DSN=&&LS24,DISP=(OLD,DELETE) 00016670 //F024PERS DD DSN=&&LP24,DISP=(OLD,DELETE) 00016680 //F036LRGS DD DSN=&&LS36,DISP=(OLD,DELETE) 00016690 //F048LRGS DD DSN=&&LS48,DISP=(OLD,DELETE) 00016700 //F060LRGS DD DSN=&&LS60,DISP=(OLD,DELETE) 00016710 //F072LRGS DD DSN=&&LS72,DISP=(OLD,DELETE) 00016720 //FT05F001 DD * 00016730 &OPTION WRSTAT=T, &END 00016740 &FILES NFILE=8, RPT=3, &END 00016750 &FILES FORFIL='F000LRGS','F012LRGS','F024LRGS','F036LRGS' &END 00016760 &FILES FORFIL(5)='F048LRGS', FORFIL(6)='F060LRGS' &END 00016770 &FILES FORFIL(7)='F072LRGS', FORFIL(8)='F024PERS' &END 00016780 /* 00016790 //* 00016800 //* FETCH ECMWF FORECASTS TO BE VERIFIED (SOUTHERN HEMISPHERE) 00016810 //* 00016820 //DARCECMS EXEC PGM=DISARCV 00016830 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00016840 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00016850 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00016860 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00016870 //FT11F001 DD DUMMY 00016880 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VECMSH,DISP=SHR 00016890 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VECMSH,DISP=SHR 00016900 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VECMSH,DISP=SHR 00016910 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VECMSH,DISP=SHR 00016920 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VECMSH,DISP=SHR 00016930 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VECMSH,DISP=SHR 00016940 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VECMSH,DISP=SHR 00016950 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VECMSH,DISP=SHR 00016960 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VECMSH,DISP=SHR 00016970 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VECMSH,DISP=SHR 00016980 //F24ECMS DD DSN=&&F24ECMS,DISP=(NEW,PASS), 00016990 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00017000 //F48ECMS DD DSN=&&F48ECMS,DISP=(NEW,PASS), 00017010 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00017020 //F72ECMS DD DSN=&&F72ECMS,DISP=(NEW,PASS), 00017030 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00017040 //F96ECMS DD DSN=&&F96ECMS,DISP=(NEW,PASS), 00017050 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00017060 //F120ECMS DD DSN=&&F120ECMS,DISP=(NEW,PASS), 00017070 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00017080 //FT05F001 DD * 00017090 F24ECMS F48ECMS F72ECMS 00017100 F96ECMS F120ECMS 00017110 /* 00017120 //* 00017130 //* 00017140 //* INITIALIZE ACCUMULATION FILES FOR S. HEM. VERIFICATIONS 00017150 //* 00017160 //STRTECMS EXEC PGM=STRTVER1 00017170 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00017180 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00017190 //ANL DD DSN=NMC.PROD.VANL.T12Z.AVN,DISP=SHR 00017200 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00017210 //FT08F001 DD DSN=NMC.PROD.JCDATA(SH31),DISP=SHR,LABEL=(,,,IN) 00017220 // DD DSN=NMC.PROD.JCDATA(AUS24),DISP=SHR,LABEL=(,,,IN) 00017230 // DD DSN=NMC.PROD.JCDATA(SPA22),DISP=SHR,LABEL=(,,,IN) 00017240 // DD DSN=NMC.PROD.JCDATA(SAM30),DISP=SHR,LABEL=(,,,IN) 00017250 // DD DSN=NMC.PROD.JCDATA(SAF20),DISP=SHR,LABEL=(,,,IN) 00017260 //V024ECMS DD DSN=&&V024ECMS,DISP=(NEW,PASS),UNIT=SYSWK, 00017270 // SPACE=(CYL,2,,CONTIG) 00017280 //V048ECMS DD DSN=&&V048ECMS,DISP=(NEW,PASS),UNIT=SYSWK, 00017290 // SPACE=(CYL,2,,CONTIG) 00017300 //V072ECMS DD DSN=&&V072ECMS,DISP=(NEW,PASS),UNIT=SYSWK, 00017310 // SPACE=(CYL,2,,CONTIG) 00017320 //V096ECMS DD DSN=&&V096ECMS,DISP=(NEW,PASS),UNIT=SYSWK, 00017330 // SPACE=(CYL,2,,CONTIG) 00017340 //V120ECMS DD DSN=&&V120ECMS,DISP=(NEW,PASS),UNIT=SYSWK, 00017350 // SPACE=(CYL,2,,CONTIG) 00017360 //FT05F001 DD DSN=NMC.PROD.JCDATA(STRTECMS),DISP=SHR,LABEL=(,,,IN) 00017370 //* 00017380 //* 00017390 //* VERIFY SOUTHERN HEMISPHERE ECMWF FORECASTS 00017400 //* (RUN AT START OF 00Z CYCLE, USING 12Z DATA) 00017410 //* 00017420 //* ACCUMULATE STATISTICS (12Z VERIFICATIONS ONLY) 00017430 //* 00017440 //VECMWFS EXEC PGM=ACUMVER1 00017450 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00017460 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00017470 //X024ECMS DD DSN=&&F24ECMS,DISP=(OLD,DELETE) 00017480 //X048ECMS DD DSN=&&F48ECMS,DISP=(OLD,DELETE) 00017490 //X072ECMS DD DSN=&&F72ECMS,DISP=(OLD,DELETE) 00017500 //X096ECMS DD DSN=&&F96ECMS,DISP=(OLD,DELETE) 00017510 //X120ECMS DD DSN=&&F120ECMS,DISP=(OLD,DELETE) 00017520 //V024ECMS DD DSN=&&V024ECMS,DISP=(OLD,PASS) 00017530 //V048ECMS DD DSN=&&V048ECMS,DISP=(OLD,PASS) 00017540 //V072ECMS DD DSN=&&V072ECMS,DISP=(OLD,PASS) 00017550 //V096ECMS DD DSN=&&V096ECMS,DISP=(OLD,PASS) 00017560 //V120ECMS DD DSN=&&V120ECMS,DISP=(OLD,PASS) 00017570 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00017580 //FT09F001 DD DSN=NMC.PROD.ADPVERSH.T12Z.CUR,DISP=SHR 00017590 //FT10F001 DD DSN=NMC.PROD.ADPVER1.DLYSTATS,DISP=MOD 00017600 //FT05F001 DD * 00017610 &ANLFIL VDATE1=00010100, VDATE2=99123112, &END 00017620 &FILES NFILE=5, RPT=1, FORFIL='X024ECMS','X048ECMS','X072ECMS' ,&END 00017630 &FILES FORFIL(4)='X096ECMS', FORFIL(5)='X120ECMS', WRSTAT=T, &END 00017640 /* 00017650 //* 00017660 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00017670 //* 00017680 //COPYPRT1 EXEC PGM=IEBGENER,COND=((0,EQ,NOPRINT),EVEN) 00017690 //SYSIN DD DUMMY 00017700 //SYSPRINT DD DUMMY 00017710 //SYSUT1 DD DSN=&&TEMP06,DISP=(OLD,PASS) 00017720 //SYSUT2 DD SYSOUT=A 00017730 //* 00017740 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00017750 //* ABOVE DECK CREATED WEDNESDAY AUG 10, 1994 - 0753 26.99 LST 00017760 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00017770 // 00017780 //WW0152A7 JOB (WX11008M1H1040X,WWB3-A10),'VLCEK',REGION=3000K,TIME=3, 00017790 // MSGCLASS=R 00017800 //*MAIN CLASS=NMC3,ORG=WWBAD1 00017810 //* 00017820 //* FETCH OPERATIONAL FORECASTS THAT VERIFY AT ADP DATE/TIME 00017830 //* 00017840 //*NET ID=WN00ZNMC,HC=1 00017850 //DISARCHM EXEC PGM=DISARCV 00017860 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00017870 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00017880 //FT06F001 DD DSN=&&TEMP06,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408), 00017890 // UNIT=SYSWK,SPACE=(CYL,(4,2)),DISP=(NEW,PASS) 00017900 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00017910 //FT11F001 DD DUMMY 00017920 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VAVN,DISP=SHR 00017930 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VAVN,DISP=SHR 00017940 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VAVN,DISP=SHR 00017950 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VAVN,DISP=SHR 00017960 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VAVN,DISP=SHR 00017970 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VAVN,DISP=SHR 00017980 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VAVN,DISP=SHR 00017990 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VAVN,DISP=SHR 00018000 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VAVN,DISP=SHR 00018010 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VAVN,DISP=SHR 00018020 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VAVN,DISP=SHR 00018030 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VAVN,DISP=SHR 00018040 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VAVN,DISP=SHR 00018050 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VAVN,DISP=SHR 00018060 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VAVN,DISP=SHR 00018070 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VAVN,DISP=SHR 00018080 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VAVN,DISP=SHR 00018090 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VAVN,DISP=SHR 00018100 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VAVN,DISP=SHR 00018110 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VAVN,DISP=SHR 00018120 //EXTF0001 DD DSN=NMC.PROD.ARCH0001.VEXT,DISP=SHR 00018130 //EXTF0002 DD DSN=NMC.PROD.ARCH0002.VEXT,DISP=SHR 00018140 //EXTF0003 DD DSN=NMC.PROD.ARCH0003.VEXT,DISP=SHR 00018150 //EXTF0004 DD DSN=NMC.PROD.ARCH0004.VEXT,DISP=SHR 00018160 //EXTF0005 DD DSN=NMC.PROD.ARCH0005.VEXT,DISP=SHR 00018170 //EXTF0006 DD DSN=NMC.PROD.ARCH0006.VEXT,DISP=SHR 00018180 //EXTF0007 DD DSN=NMC.PROD.ARCH0007.VEXT,DISP=SHR 00018190 //EXTF0008 DD DSN=NMC.PROD.ARCH0008.VEXT,DISP=SHR 00018200 //EXTF0009 DD DSN=NMC.PROD.ARCH0009.VEXT,DISP=SHR 00018210 //EXTF0010 DD DSN=NMC.PROD.ARCH0010.VEXT,DISP=SHR 00018220 //ANL DD DSN=&&ANL,DISP=(NEW,PASS), 00018230 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018240 //F12FORH DD DSN=&&F12FORH,DISP=(NEW,PASS), 00018250 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018260 //F24FORH DD DSN=&&F24FORH,DISP=(NEW,PASS), 00018270 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018280 //F36FORH DD DSN=&&F36FORH,DISP=(NEW,PASS), 00018290 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018300 //F48FORH DD DSN=&&F48FORH,DISP=(NEW,PASS), 00018310 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018320 //F60FORH DD DSN=&&F60FORH,DISP=(NEW,PASS), 00018330 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018340 //F72FORH DD DSN=&&F72FORH,DISP=(NEW,PASS), 00018350 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018360 //EXTF108 DD DSN=&&F108FORH,DISP=(NEW,PASS), 00018370 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018380 //EXTF132 DD DSN=&&F132FORH,DISP=(NEW,PASS), 00018390 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018400 //EXTF156 DD DSN=&&F156FORH,DISP=(NEW,PASS), 00018410 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018420 //EXTF180 DD DSN=&&F180FORH,DISP=(NEW,PASS), 00018430 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018440 //EXTF204 DD DSN=&&F204FORH,DISP=(NEW,PASS), 00018450 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018460 //EXTF228 DD DSN=&&F228FORH,DISP=(NEW,PASS), 00018470 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00018480 //F12PERH DD DSN=&&F12PERH,DISP=(NEW,PASS),UNIT=SYSWK, 00018490 // SPACE=(CYL,3,,CONTIG) 00018500 //F24PERH DD DSN=&&F24PERH,DISP=(NEW,PASS),UNIT=SYSWK, 00018510 // SPACE=(CYL,3,,CONTIG) 00018520 //F36PERH DD DSN=&&F36PERH,DISP=(NEW,PASS),UNIT=SYSWK, 00018530 // SPACE=(CYL,3,,CONTIG) 00018540 //F48PERH DD DSN=&&F48PERH,DISP=(NEW,PASS),UNIT=SYSWK, 00018550 // SPACE=(CYL,3,,CONTIG) 00018560 //FT05F001 DD * 00018570 ANL F12FORH F24FORH F36FORH F48FORH F60FORH F72FORH 00018580 EXTF108 EXTF132 EXTF156 00018590 EXTF180 EXTF204 EXTF228 00018600 F12PERH F24PERH F36PERH F48PERH 00018610 /* 00018620 //* 00018630 //* 00018640 //* VERIFY AVIATION AND MRF FORECASTS 00018650 //* 00018660 //VERIFY EXEC PGM=SUMAC4 00018670 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00018680 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00018690 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00018700 //FT20F001 DD DSN=NMC.PROD.JCDATA(NHEM4WMO),DISP=SHR,LABEL=(,,,IN) 00018710 // DD DSN=NMC.PROD.JCDATA(NH102),DISP=SHR,LABEL=(,,,IN) 00018720 // DD DSN=NMC.PROD.JCDATA(ALA23),DISP=SHR,LABEL=(,,,IN) 00018730 // DD DSN=NMC.PROD.JCDATA(NA110),DISP=SHR,LABEL=(,,,IN) 00018740 // DD DSN=NMC.PROD.JCDATA(WNA37),DISP=SHR,LABEL=(,,,IN) 00018750 // DD DSN=NMC.PROD.JCDATA(ENA73),DISP=SHR,LABEL=(,,,IN) 00018760 // DD DSN=NMC.PROD.JCDATA(EUR96),DISP=SHR,LABEL=(,,,IN) 00018770 // DD DSN=NMC.PROD.JCDATA(ASIA153),DISP=SHR,LABEL=(,,,IN) 00018780 //FT30F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00018790 //FT60F001 DD DSN=NMC.PROD.ADPVER4.DLYSTATS,DISP=MOD 00018800 //ANALLRGN DD DSN=&&ANL,DISP=(OLD,PASS) 00018810 //V000LRGN DD DSN=NMC.PROD.VF00.T12Z.AVN,DISP=SHR 00018820 //F012LRGN DD DSN=&&F12FORH,DISP=(OLD,PASS) 00018830 //F024LRGN DD DSN=&&F24FORH,DISP=(OLD,PASS) 00018840 //F024PERN DD DSN=&&F24PERH,DISP=(OLD,PASS) 00018850 //F036LRGN DD DSN=&&F36FORH,DISP=(OLD,PASS) 00018860 //F048LRGN DD DSN=&&F48FORH,DISP=(OLD,PASS) 00018870 //F060LRGN DD DSN=&&F60FORH,DISP=(OLD,DELETE) 00018880 //F072LRGN DD DSN=&&F72FORH,DISP=(OLD,DELETE) 00018890 //F108MRFN DD DSN=&&F108FORH,DISP=(OLD,DELETE) 00018900 //F132MRFN DD DSN=&&F132FORH,DISP=(OLD,DELETE) 00018910 //F156MRFN DD DSN=&&F156FORH,DISP=(OLD,DELETE) 00018920 //F180MRFN DD DSN=&&F180FORH,DISP=(OLD,DELETE) 00018930 //F204MRFN DD DSN=&&F204FORH,DISP=(OLD,DELETE) 00018940 //F228MRFN DD DSN=&&F228FORH,DISP=(OLD,DELETE) 00018950 //FT05F001 DD * 00018960 &OPTION WRSTAT=T, SETMAP=27, &END 00018970 &FILES NFILE=15, RPT=6, FORFIL='ANALLRGN','V000LRGN','F012LRGN' &END 00018980 &FILES FORFIL(4)='F024LRGN', FORFIL(5)='F036LRGN' &END 00018990 &FILES FORFIL(6)='F048LRGN', FORFIL(7)='F060LRGN' &END 00019000 &FILES FORFIL(8)='F072LRGN', FORFIL(9)='F108MRFN' &END 00019010 &FILES FORFIL(10)='F132MRFN',FORFIL(11)='F156MRFN' &END 00019020 &FILES FORFIL(12)='F180MRFN',FORFIL(13)='F204MRFN' &END 00019030 &FILES FORFIL(14)='F228MRFN',FORFIL(15)='F024PERN' &END 00019040 /* 00019050 //* 00019060 //* 00019070 //* VERIFY JET WINDS EXCEEDING 80 KNOTS FOR AVN FORECASTS 00019080 //* 00019090 //V80KTS EXEC PGM=ACUMVER4 00019100 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00019110 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00019120 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00019130 //FT09F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00019140 //FT10F001 DD DUMMY 00019150 //F024AVN1 DD DSN=&&F24FORH,DISP=(OLD,PASS) 00019160 //F036AVN1 DD DSN=&&F36FORH,DISP=(OLD,PASS) 00019170 //V024AVN1 DD DSN=NMC.PROD.SUMAC.V024AVN1,DISP=SHR 00019180 //V036AVN1 DD DSN=NMC.PROD.SUMAC.V036AVN1,DISP=SHR 00019190 //FT05F001 DD * 00019200 &ANLFIL VDATE1=00010100, VDATE2=99123112, &END 00019210 &FILES NFILE=2,FORFIL='F024AVN1','F036AVN1',VSAM=T,MINWND=41.12, &END 00019220 /* 00019230 //* 00019240 //* 00019250 //* VERIFY JET WINDS EXCEEDING 120 KNOTS FOR AVN FORECASTS 00019260 //* 00019270 //V120KTS EXEC PGM=ACUMVER4 00019280 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00019290 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00019300 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00019310 //FT09F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00019320 //FT10F001 DD DUMMY 00019330 //F024AVN2 DD DSN=&&F24FORH,DISP=(OLD,PASS) 00019340 //F036AVN2 DD DSN=&&F36FORH,DISP=(OLD,PASS) 00019350 //V024AVN2 DD DSN=NMC.PROD.SUMAC.V024AVN2,DISP=SHR 00019360 //V036AVN2 DD DSN=NMC.PROD.SUMAC.V036AVN2,DISP=SHR 00019370 //FT05F001 DD * 00019380 &ANLFIL VDATE1=00010100, VDATE2=99123112, &END 00019390 &FILES NFILE=2,FORFIL='F024AVN2','F036AVN2',VSAM=T,MINWND=61.68, &END 00019400 /* 00019410 //* 00019420 //DISARCUK EXEC PGM=DISARCV 00019430 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00019440 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00019450 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00019460 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00019470 //FT11F001 DD DUMMY 00019480 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VUKMET,DISP=SHR 00019490 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VUKMET,DISP=SHR 00019500 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VUKMET,DISP=SHR 00019510 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VUKMET,DISP=SHR 00019520 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VUKMET,DISP=SHR 00019530 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VUKMET,DISP=SHR 00019540 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VUKMET,DISP=SHR 00019550 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VUKMET,DISP=SHR 00019560 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VUKMET,DISP=SHR 00019570 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VUKMET,DISP=SHR 00019580 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VUKMET,DISP=SHR 00019590 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VUKMET,DISP=SHR 00019600 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VUKMET,DISP=SHR 00019610 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VUKMET,DISP=SHR 00019620 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VUKMET,DISP=SHR 00019630 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VUKMET,DISP=SHR 00019640 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VUKMET,DISP=SHR 00019650 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VUKMET,DISP=SHR 00019660 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VUKMET,DISP=SHR 00019670 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VUKMET,DISP=SHR 00019680 //F00UKMET DD DSN=&&F00UKMET,DISP=(NEW,PASS), 00019690 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00019700 //F12UKMET DD DSN=&&F12UKMET,DISP=(NEW,PASS), 00019710 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00019720 //F24UKMET DD DSN=&&F24UKMET,DISP=(NEW,PASS), 00019730 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00019740 //F36UKMET DD DSN=&&F36UKMET,DISP=(NEW,PASS), 00019750 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00019760 //F48UKMET DD DSN=&&F48UKMET,DISP=(NEW,PASS), 00019770 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00019780 //FT05F001 DD * 00019790 F00UKMET F12UKMET F24UKMET F36UKMET F48UKMET 00019800 /* 00019810 //* 00019820 //* VERIFY AVN MODEL FORECASTS AND PERSISTENCE WRT AIRCRAFT 00019830 //* 00019840 //ACCUMAIR EXEC PGM=ACCUMAIR 00019850 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00019860 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00019870 //ANLFORHA DD DSN=&&ANL,DISP=(OLD,PASS) 00019880 //F12FORHA DD DSN=&&F12FORH,DISP=(OLD,PASS) 00019890 //F24FORHA DD DSN=&&F24FORH,DISP=(OLD,PASS) 00019900 //F36FORHA DD DSN=&&F36FORH,DISP=(OLD,PASS) 00019910 //F48FORHA DD DSN=&&F48FORH,DISP=(OLD,PASS) 00019920 //F12PERHA DD DSN=&&F12PERH,DISP=(OLD,PASS) 00019930 //F24PERHA DD DSN=&&F24PERH,DISP=(OLD,PASS) 00019940 //F36PERHA DD DSN=&&F36PERH,DISP=(OLD,PASS) 00019950 //F48PERHA DD DSN=&&F48PERH,DISP=(OLD,PASS) 00019960 //F00UKMET DD DSN=&&F00UKMET,DISP=(OLD,PASS) 00019970 //F12UKMET DD DSN=&&F12UKMET,DISP=(OLD,PASS) 00019980 //F24UKMET DD DSN=&&F24UKMET,DISP=(OLD,PASS) 00019990 //F36UKMET DD DSN=&&F36UKMET,DISP=(OLD,PASS) 00020000 //F48UKMET DD DSN=&&F48UKMET,DISP=(OLD,PASS) 00020010 //VNLFORHA DD DSN=NMC.PROD.VNLFORHA,DISP=SHR 00020020 //V12FORHA DD DSN=NMC.PROD.V12FORHA,DISP=SHR 00020030 //V24FORHA DD DSN=NMC.PROD.V24FORHA,DISP=SHR 00020040 //V36FORHA DD DSN=NMC.PROD.V36FORHA,DISP=SHR 00020050 //V48FORHA DD DSN=NMC.PROD.V48FORHA,DISP=SHR 00020060 //V12PERHA DD DSN=NMC.PROD.V12PERHA,DISP=SHR 00020070 //V24PERHA DD DSN=NMC.PROD.V24PERHA,DISP=SHR 00020080 //V36PERHA DD DSN=NMC.PROD.V36PERHA,DISP=SHR 00020090 //V48PERHA DD DSN=NMC.PROD.V48PERHA,DISP=SHR 00020100 //V00UKMET DD DSN=NMC.PROD.V00UKMET,DISP=SHR 00020110 //V12UKMET DD DSN=NMC.PROD.V12UKMET,DISP=SHR 00020120 //V24UKMET DD DSN=NMC.PROD.V24UKMET,DISP=SHR 00020130 //V36UKMET DD DSN=NMC.PROD.V36UKMET,DISP=SHR 00020140 //V48UKMET DD DSN=NMC.PROD.V48UKMET,DISP=SHR 00020150 //FT05F001 DD DSN=NMC.PROD.JCDATA(ACUMSTAT),DISP=SHR,LABEL=(,,,IN) 00020160 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00020170 //FT08F001 DD DSN=NMC.PROD.AIRCFT.T12Z.CUR,DISP=SHR 00020180 //FT20F001 DD UNIT=SYSWK,SPACE=(TRK,25),DCB=(RECFM=VBS,BLKSIZE=2750) 00020190 //FT21F001 DD UNIT=SYSWK,SPACE=(TRK,25),DCB=(RECFM=VBS,BLKSIZE=2750) 00020200 //FT22F001 DD UNIT=SYSWK,SPACE=(TRK,35),DCB=(RECFM=VBS,BLKSIZE=6420) 00020210 //FT23F001 DD UNIT=SYSWK,SPACE=(TRK,35),DCB=(RECFM=VBS,BLKSIZE=6420) 00020220 //* 00020230 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00020240 //* 00020250 //COPYPRT1 EXEC PGM=IEBGENER,COND=((0,EQ,NOPRINT),EVEN) 00020260 //SYSIN DD DUMMY 00020270 //SYSPRINT DD DUMMY 00020280 //SYSUT1 DD DSN=&&TEMP06,DISP=(OLD,PASS) 00020290 //SYSUT2 DD SYSOUT=A 00020300 //* 00020310 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00020320 //* ABOVE DECK CREATED WEDNESDAY AUG 10, 1994 - 0753 26.99 LST 00020330 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00020340 // 00020350 //WW0153A7 JOB (WX11008M1H1040X,WWB3-A10),'VLCEK',REGION=2000K,TIME=3, 00020360 // MSGCLASS=R 00020370 //*MAIN CLASS=NMC3,ORG=WWBAD1 00020380 //* 00020390 //* FETCH FORECASTS THAT VERIFY AT ADP DATA DATE/TIME 00020400 //* 00020410 //*NET ID=WN00ZNMC,HC=1 00020420 //DISARCRF EXEC PGM=DISARCV 00020430 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00020440 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00020450 //FT06F001 DD DSN=&&TEMP06,UNIT=SYSWK,SPACE=(CYL,(4,2)), 00020460 // DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408),DISP=(NEW,PASS) 00020470 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00020480 //FT11F001 DD DUMMY 00020490 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VRGL,DISP=SHR 00020500 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VRGL,DISP=SHR 00020510 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VRGL,DISP=SHR 00020520 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VRGL,DISP=SHR 00020530 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VRGL,DISP=SHR 00020540 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VRGL,DISP=SHR 00020550 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VRGL,DISP=SHR 00020560 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VRGL,DISP=SHR 00020570 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VRGL,DISP=SHR 00020580 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VRGL,DISP=SHR 00020590 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VRGL,DISP=SHR 00020600 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VRGL,DISP=SHR 00020610 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VRGL,DISP=SHR 00020620 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VRGL,DISP=SHR 00020630 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VRGL,DISP=SHR 00020640 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VRGL,DISP=SHR 00020650 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VRGL,DISP=SHR 00020660 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VRGL,DISP=SHR 00020670 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VRGL,DISP=SHR 00020680 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VRGL,DISP=SHR 00020690 //ANLRAFS DD DSN=&&ANLRAFS,DISP=(NEW,PASS), 00020700 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00020710 //F12RAFS DD DSN=&&F12RAFS,DISP=(NEW,PASS), 00020720 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00020730 //F24RAFS DD DSN=&&F24RAFS,DISP=(NEW,PASS), 00020740 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00020750 //F36RAFS DD DSN=&&F36RAFS,DISP=(NEW,PASS), 00020760 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00020770 //F48RAFS DD DSN=&&F48RAFS,DISP=(NEW,PASS), 00020780 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00020790 //FT05F001 DD * 00020800 ANLRAFS F12RAFS F24RAFS F36RAFS F48RAFS 00020810 /* 00020820 //* 00020830 //* FETCH ETA FORECASTS THAT VERIFY AT ADP DATA DATE/TIME 00020840 //* 00020850 //DISARCRG EXEC PGM=DISARCV 00020860 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00020870 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00020880 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00020890 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00020900 //FT11F001 DD DUMMY 00020910 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VERL,DISP=SHR 00020920 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VERL,DISP=SHR 00020930 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VERL,DISP=SHR 00020940 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VERL,DISP=SHR 00020950 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VERL,DISP=SHR 00020960 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VERL,DISP=SHR 00020970 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VERL,DISP=SHR 00020980 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VERL,DISP=SHR 00020990 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VERL,DISP=SHR 00021000 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VERL,DISP=SHR 00021010 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VERL,DISP=SHR 00021020 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VERL,DISP=SHR 00021030 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VERL,DISP=SHR 00021040 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VERL,DISP=SHR 00021050 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VERL,DISP=SHR 00021060 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VERL,DISP=SHR 00021070 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VERL,DISP=SHR 00021080 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VERL,DISP=SHR 00021090 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VERL,DISP=SHR 00021100 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VERL,DISP=SHR 00021110 //F12FORR DD DSN=&&F12FORR,DISP=(NEW,PASS), 00021120 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00021130 //F24FORR DD DSN=&&F24FORR,DISP=(NEW,PASS), 00021140 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00021150 //F36FORR DD DSN=&&F36FORR,DISP=(NEW,PASS), 00021160 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00021170 //F48FORR DD DSN=&&F48FORR,DISP=(NEW,PASS), 00021180 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00021190 //FMANL DD DSN=&&FMANL,DISP=(NEW,PASS), 00021200 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00021210 //FT05F001 DD * 00021220 FMANL F12FORR F24FORR F36FORR F48FORR 00021230 /* 00021240 //* 00021250 //* 00021260 //* VERIFY ETA AND RAFS FORECASTS 00021270 //* 00021280 //VERIFY EXEC PGM=SUMAC4 00021290 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00021300 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00021310 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00021320 //FT20F001 DD DSN=NMC.PROD.JCDATA(NH102),DISP=SHR,LABEL=(,,,IN) 00021330 // DD DSN=NMC.PROD.JCDATA(ALA23),DISP=SHR,LABEL=(,,,IN) 00021340 // DD DSN=NMC.PROD.JCDATA(NA110),DISP=SHR,LABEL=(,,,IN) 00021350 // DD DSN=NMC.PROD.JCDATA(WNA37),DISP=SHR,LABEL=(,,,IN) 00021360 // DD DSN=NMC.PROD.JCDATA(ENA73),DISP=SHR,LABEL=(,,,IN) 00021370 // DD DSN=NMC.PROD.JCDATA(GALE15),DISP=SHR,LABEL=(,,,IN) 00021380 //FT30F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00021390 //FT60F001 DD DSN=NMC.PROD.ADPVER4.DLYSTATS,DISP=MOD 00021400 //ANALRAFS DD DSN=&&ANLRAFS,DISP=(OLD,DELETE) 00021410 //V000RAFS DD DSN=NMC.PROD.VRF00.T12Z.RGL,DISP=SHR 00021420 //F012RAFS DD DSN=&&F12RAFS,DISP=(OLD,DELETE) 00021430 //F024RAFS DD DSN=&&F24RAFS,DISP=(OLD,DELETE) 00021440 //F036RAFS DD DSN=&&F36RAFS,DISP=(OLD,DELETE) 00021450 //F048RAFS DD DSN=&&F48RAFS,DISP=(OLD,DELETE) 00021460 //ANALREGL DD DSN=&&FMANL,DISP=(OLD,DELETE) 00021470 //V000REGL DD DSN=NMC.PROD.VLFM00.T12Z.ETA,DISP=SHR 00021480 //F012REGL DD DSN=&&F12FORR,DISP=(OLD,DELETE) 00021490 //F024REGL DD DSN=&&F24FORR,DISP=(OLD,DELETE) 00021500 //F036REGL DD DSN=&&F36FORR,DISP=(OLD,DELETE) 00021510 //F048REGL DD DSN=&&F48FORR,DISP=(OLD,DELETE) 00021520 //FT05F001 DD * 00021530 &OPTION WRSTAT=T, &END 00021540 &FILES NFILE=12, RPT=5, FORFIL='ANALRAFS','V000RAFS', &END 00021550 &FILES FORFIL(3)='F012RAFS', FORFIL(4)='F024RAFS', &END 00021560 &FILES FORFIL(5)='F036RAFS', FORFIL(6)='F048RAFS', &END 00021570 &FILES FORFIL(7)='ANALREGL', FORFIL(8)='V000REGL', &END 00021580 &FILES FORFIL(9)='F012REGL', FORFIL(10)='F024REGL', &END 00021590 &FILES FORFIL(11)='F036REGL', FORFIL(12)='F048REGL', &END 00021600 /* 00021610 //* 00021620 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00021630 //* 00021640 //COPYPRT1 EXEC PGM=IEBGENER,COND=((0,EQ,NOPRINT),EVEN) 00021650 //SYSIN DD DUMMY 00021660 //SYSPRINT DD DUMMY 00021670 //SYSUT1 DD DSN=&&TEMP06,DISP=(OLD,PASS) 00021680 //SYSUT2 DD SYSOUT=A 00021690 //* 00021700 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00021710 //* ABOVE DECK CREATED WEDNESDAY AUG 10, 1994 - 0753 26.99 LST 00021720 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00021730 // 00021740 //WW0154A7 JOB (WX11008M1H1040X,WWB3-A10),'VLCEK',REGION=2000K,TIME=3, 00021750 // MSGCLASS=R 00021760 //*MAIN CLASS=NMC3,ORG=WWBAD1 00021770 //* 00021780 //* VERIFY FINAL ANALYSIS AND GES (2ND 6HR) FORECAST 00021790 //* FOR 12Z CYCLE 00021800 //* (RUN AT START OF 00Z CYCLE) 00021810 //* 00021820 //* 00021830 //* FETCH FORECASTS THAT VERIFY AT ADP DATA DATE/TIME 00021840 //* 00021850 //*NET ID=WN00ZNMC,HC=1 00021860 //DISARCRG EXEC PGM=DISARCV 00021870 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00021880 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00021890 //FT06F001 DD DSN=&&TEMP06,UNIT=SYSWK,SPACE=(CYL,(4,2)), 00021900 // DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408),DISP=(NEW,PASS) 00021910 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00021920 //FT11F001 DD DUMMY 00021930 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VFNL,DISP=SHR 00021940 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VFNL,DISP=SHR 00021950 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VFNL,DISP=SHR 00021960 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VFNL,DISP=SHR 00021970 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VFNL,DISP=SHR 00021980 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VFNL,DISP=SHR 00021990 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VFNL,DISP=SHR 00022000 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VFNL,DISP=SHR 00022010 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VFNL,DISP=SHR 00022020 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VFNL,DISP=SHR 00022030 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VFNL,DISP=SHR 00022040 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VFNL,DISP=SHR 00022050 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VFNL,DISP=SHR 00022060 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VFNL,DISP=SHR 00022070 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VFNL,DISP=SHR 00022080 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VFNL,DISP=SHR 00022090 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VFNL,DISP=SHR 00022100 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VFNL,DISP=SHR 00022110 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VFNL,DISP=SHR 00022120 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VFNL,DISP=SHR 00022130 //GANLNS DD DSN=&&GANLNS,DISP=(NEW,PASS), 00022140 // UNIT=SYSWK,SPACE=(CYL,12,,CONTIG) 00022150 //GF12NS DD DSN=&&GF12NS,DISP=(NEW,PASS), 00022160 // UNIT=SYSWK,SPACE=(CYL,6,,CONTIG) 00022170 //FT05F001 DD * 00022180 GANLNS GF12NS 00022190 /* 00022200 //* 00022210 //* VERIFY NORTHERN HEMISPHERE ANL AND GUESS 00022220 //* 00022230 //OINHVRFY EXEC PGM=SUMAC4 00022240 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00022250 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00022260 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00022270 //FT20F001 DD DSN=NMC.PROD.JCDATA(NH102),DISP=SHR,LABEL=(,,,IN) 00022280 // DD DSN=NMC.PROD.JCDATA(NA110),DISP=SHR,LABEL=(,,,IN) 00022290 // DD DSN=NMC.PROD.JCDATA(WNA37),DISP=SHR,LABEL=(,,,IN) 00022300 // DD DSN=NMC.PROD.JCDATA(ENA73),DISP=SHR,LABEL=(,,,IN) 00022310 // DD DSN=NMC.PROD.JCDATA(EUR96),DISP=SHR,LABEL=(,,,IN) 00022320 //FT30F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00022330 //FT60F001 DD DSN=NMC.PROD.ADPVER4.DLYSTATS,DISP=MOD 00022340 //ANALDASN DD DSN=&&GANLNS,DISP=(OLD,PASS) 00022350 //F006DASN DD DSN=&&GF12NS,DISP=(OLD,PASS) 00022360 //FT05F001 DD * 00022370 &OPTION WRSTAT=T, SETMAP=29, &END 00022380 &FILES NFILE=2,FORFIL='ANALDASN','F006DASN', &END 00022390 /* 00022400 //* 00022410 //* VERIFY SOUTHERN HEMIPSHERE ANL AND GUESS 00022420 //* 00022430 //OISHVRFY EXEC PGM=SUMAC4 00022440 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00022450 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00022460 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00022470 //FT20F001 DD DSN=NMC.PROD.JCDATA(SH31),DISP=SHR,LABEL=(,,,IN) 00022480 //FT30F001 DD DSN=NMC.PROD.ADPVERSH.T12Z.CUR,DISP=SHR 00022490 //FT60F001 DD DSN=NMC.PROD.ADPVER4.DLYSTATS,DISP=MOD 00022500 //ANALDASS DD DSN=&&GANLNS,DISP=(OLD,DELETE) 00022510 //F006DASS DD DSN=&&GF12NS,DISP=(OLD,DELETE) 00022520 //FT05F001 DD * 00022530 &OPTION WRSTAT=T, SETMAP=30, &END 00022540 &FILES NFILE=2,FORFIL='ANALDASS','F006DASS', &END 00022550 /* 00022560 //* 00022570 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00022580 //* 00022590 //COPYPRT1 EXEC PGM=IEBGENER,COND=((0,EQ,NOPRINT),EVEN) 00022600 //SYSIN DD DUMMY 00022610 //SYSPRINT DD DUMMY 00022620 //SYSUT1 DD DSN=&&TEMP06,DISP=(OLD,PASS) 00022630 //SYSUT2 DD SYSOUT=A 00022640 //* 00022650 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00022660 //* ABOVE DECK CREATED WEDNESDAY AUG 10, 1994 - 0753 26.99 LST 00022670 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00022680 // 00022690 //WW0155A7 JOB (WX11008M1H1040X,WWB3-A10),'VLCEK',REGION=2000K,TIME=10, 00022700 // MSGCLASS=R 00022710 //*MAIN CLASS=NMC3,ORG=WWBAD1 00022720 //* 00022730 //* RETRIEVE UNITED KINGDOM FORECASTS 00022740 //* 00022750 //*NET ID=WN00ZNMC,HC=1 00022760 //DISARCUK EXEC PGM=DISARCV 00022770 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00022780 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00022790 //FT06F001 DD DSN=&&TEMP06,UNIT=SYSWK,SPACE=(CYL,(4,2)), 00022800 // DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408),DISP=(NEW,PASS) 00022810 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00022820 //FT11F001 DD DUMMY 00022830 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VUKMET,DISP=SHR 00022840 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VUKMET,DISP=SHR 00022850 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VUKMET,DISP=SHR 00022860 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VUKMET,DISP=SHR 00022870 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VUKMET,DISP=SHR 00022880 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VUKMET,DISP=SHR 00022890 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VUKMET,DISP=SHR 00022900 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VUKMET,DISP=SHR 00022910 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VUKMET,DISP=SHR 00022920 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VUKMET,DISP=SHR 00022930 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VUKMET,DISP=SHR 00022940 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VUKMET,DISP=SHR 00022950 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VUKMET,DISP=SHR 00022960 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VUKMET,DISP=SHR 00022970 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VUKMET,DISP=SHR 00022980 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VUKMET,DISP=SHR 00022990 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VUKMET,DISP=SHR 00023000 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VUKMET,DISP=SHR 00023010 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VUKMET,DISP=SHR 00023020 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VUKMET,DISP=SHR 00023030 //F00UKMET DD DSN=&&F00UKMET,DISP=(NEW,PASS), 00023040 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023050 //F12UKMET DD DSN=&&F12UKMET,DISP=(NEW,PASS), 00023060 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023070 //F24UKMET DD DSN=&&F24UKMET,DISP=(NEW,PASS), 00023080 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023090 //F36UKMET DD DSN=&&F36UKMET,DISP=(NEW,PASS), 00023100 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023110 //F48UKMET DD DSN=&&F48UKMET,DISP=(NEW,PASS), 00023120 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023130 //F60UKMET DD DSN=&&F60UKMET,DISP=(NEW,PASS), 00023140 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023150 //F72UKMET DD DSN=&&F72UKMET,DISP=(NEW,PASS), 00023160 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023170 //F96UKMET DD DSN=&&F96UKMET,DISP=(NEW,PASS), 00023180 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023190 //F20UKMET DD DSN=&&F20UKMET,DISP=(NEW,PASS), 00023200 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023210 //F44UKMET DD DSN=&&F44UKMET,DISP=(NEW,PASS), 00023220 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023230 //FT05F001 DD * 00023240 F00UKMET F12UKMET F24UKMET F36UKMET F48UKMET F60UKMET F72UKMET 00023250 F96UKMET F20UKMET F44UKMET 00023260 /* 00023270 //* 00023280 //* FETCH MEDIUM RANGE FORECASTS FROM 10 DAY ARCHIVES 00023290 //* 00023300 //DISARCMR EXEC PGM=DISARCV 00023310 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00023320 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00023330 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00023340 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00023350 //FT11F001 DD DUMMY 00023360 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VMRF,DISP=SHR 00023370 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VMRF,DISP=SHR 00023380 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VMRF,DISP=SHR 00023390 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VMRF,DISP=SHR 00023400 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VMRF,DISP=SHR 00023410 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VMRF,DISP=SHR 00023420 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VMRF,DISP=SHR 00023430 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VMRF,DISP=SHR 00023440 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VMRF,DISP=SHR 00023450 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VMRF,DISP=SHR 00023460 //F012MRF DD DSN=&&F012MRF,DISP=(NEW,PASS), 00023470 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023480 //F036MRF DD DSN=&&F036MRF,DISP=(NEW,PASS), 00023490 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023500 //F060MRF DD DSN=&&F060MRF,DISP=(NEW,PASS), 00023510 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023520 //F084MRF DD DSN=&&F084MRF,DISP=(NEW,PASS), 00023530 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00023540 //FT05F001 DD * 00023550 F012MRF F036MRF F060MRF 00023560 F084MRF 00023570 /* 00023580 //* 00023590 //* VERIFY MEDIUM RANGE AND UNITED KINGDOM FORECASTS 00023600 //* 00023610 //VERIFY EXEC PGM=SUMAC4 00023620 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00023630 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00023640 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00023650 //FT20F001 DD DSN=NMC.PROD.JCDATA(NHEM4WMO),DISP=SHR,LABEL=(,,,IN) 00023660 // DD DSN=NMC.PROD.JCDATA(NH102),DISP=SHR,LABEL=(,,,IN) 00023670 // DD DSN=NMC.PROD.JCDATA(ALA23),DISP=SHR,LABEL=(,,,IN) 00023680 // DD DSN=NMC.PROD.JCDATA(NA110),DISP=SHR,LABEL=(,,,IN) 00023690 // DD DSN=NMC.PROD.JCDATA(WNA37),DISP=SHR,LABEL=(,,,IN) 00023700 // DD DSN=NMC.PROD.JCDATA(ENA73),DISP=SHR,LABEL=(,,,IN) 00023710 // DD DSN=NMC.PROD.JCDATA(EUR96),DISP=SHR,LABEL=(,,,IN) 00023720 // DD DSN=NMC.PROD.JCDATA(ASIA153),DISP=SHR,LABEL=(,,,IN) 00023730 //FT30F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00023740 //FT60F001 DD DSN=NMC.PROD.ADPVER4.DLYSTATS,DISP=MOD 00023750 //F012MRFN DD DSN=&&F012MRF,DISP=(OLD,DELETE) 00023760 //F036MRFN DD DSN=&&F036MRF,DISP=(OLD,DELETE) 00023770 //F060MRFN DD DSN=&&F060MRF,DISP=(OLD,DELETE) 00023780 //F084MRFN DD DSN=&&F084MRF,DISP=(OLD,DELETE) 00023790 //F000UKMX DD DSN=&&F00UKMET,DISP=(OLD,DELETE) 00023800 //F012UKMX DD DSN=&&F12UKMET,DISP=(OLD,DELETE) 00023810 //F024UKMX DD DSN=&&F24UKMET,DISP=(OLD,PASS) 00023820 //F036UKMX DD DSN=&&F36UKMET,DISP=(OLD,PASS) 00023830 //F048UKMX DD DSN=&&F48UKMET,DISP=(OLD,DELETE) 00023840 //F060UKMX DD DSN=&&F60UKMET,DISP=(OLD,DELETE) 00023850 //F072UKMX DD DSN=&&F72UKMET,DISP=(OLD,DELETE) 00023860 //F096UKMX DD DSN=&&F96UKMET,DISP=(OLD,DELETE) 00023870 //F120UKMX DD DSN=&&F20UKMET,DISP=(OLD,DELETE) 00023880 //F144UKMX DD DSN=&&F44UKMET,DISP=(OLD,DELETE) 00023890 //FT05F001 DD * 00023900 &OPTION WRSTAT=T, &END 00023910 &FILES NFILE=14, RPT=7, &END 00023920 &FILES FORFIL(1)='F000UKMX', FORFIL(2)='F012UKMX', &END 00023930 &FILES FORFIL(3)='F024UKMX', FORFIL(4)='F036UKMX', &END 00023940 &FILES FORFIL(5)='F048UKMX', FORFIL(6)='F060UKMX', &END 00023950 &FILES FORFIL(7)='F072UKMX', FORFIL(8)='F096UKMX', &END 00023960 &FILES FORFIL(9)='F120UKMX', FORFIL(10)='F144UKMX', &END 00023970 &FILES FORFIL(11)='F012MRFN', FORFIL(12)='F036MRFN', &END 00023980 &FILES FORFIL(13)='F060MRFN', FORFIL(14)='F084MRFN', &END 00023990 /* 00024000 //* 00024010 //* 00024020 //* RETRIEVE SOUTHERN HEMISPHERE MEDIUM RANGE FORECASTS 00024030 //* 00024040 //DISMRFC EXEC PGM=DISARCV 00024050 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00024060 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00024070 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00024080 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00024090 //FT11F001 DD DUMMY 00024100 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VMRFC,DISP=SHR 00024110 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VMRFC,DISP=SHR 00024120 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VMRFC,DISP=SHR 00024130 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VMRFC,DISP=SHR 00024140 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VMRFC,DISP=SHR 00024150 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VMRFC,DISP=SHR 00024160 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VMRFC,DISP=SHR 00024170 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VMRFC,DISP=SHR 00024180 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VMRFC,DISP=SHR 00024190 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VMRFC,DISP=SHR 00024200 //S12 DD DSN=&&S12,DISP=(NEW,PASS), 00024210 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00024220 //S36 DD DSN=&&S36,DISP=(NEW,PASS), 00024230 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00024240 //S60 DD DSN=&&S60,DISP=(NEW,PASS), 00024250 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00024260 //S84 DD DSN=&&S84,DISP=(NEW,PASS), 00024270 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00024280 //FT05F001 DD * 00024290 S12 S36 S60 00024300 S84 00024310 /* 00024320 //* 00024330 //* SPECTRAL RANDOM TO LOLA RANDOM ACCESS 00024340 //* 00024350 //ZROFLS1 EXEC PGM=ZROFLS1 00024360 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00024370 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00024380 //FT05F001 DD * 00024390 S00 255S00 B1000000000300000000000000WASHINGTON0000-1 00024400 /* 00024410 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00024420 //FT10F001 DD DSN=NMC.PROD.DATE(T12Z),DISP=SHR,LABEL=(,,,IN) 00024430 //S00 DD DSN=&&S00,DISP=(NEW,PASS),UNIT=SYSWK, 00024440 // SPACE=(CYL,7) 00024450 //* 00024460 //COPYVSXD EXEC PGM=COPYVSXD 00024470 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00024480 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00024490 //FT05F001 DD * 00024500 VS00 000255XS00 255 00024510 /* 00024520 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00024530 //VS00 DD DSN=NMC.PROD.VS00.T12Z.AVN,DISP=SHR 00024540 //XS00 DD DSN=&&S00,DISP=(OLD,PASS) 00024550 //* 00024560 //SEBVMRFC EXEC PGM=SEBVSHEM 00024570 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00024580 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00024590 //FT05F001 DD DSN=NMC.PROD.JCDATA(SEBVMRFA),DISP=SHR,LABEL=(,,,IN) 00024600 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00024610 //S00 DD DSN=&&S00,DISP=(OLD,DELETE) 00024620 //S12 DD DSN=&&S12,DISP=(OLD,DELETE) 00024630 //S36 DD DSN=&&S36,DISP=(OLD,DELETE) 00024640 //S60 DD DSN=&&S60,DISP=(OLD,DELETE) 00024650 //S84 DD DSN=&&S84,DISP=(OLD,DELETE) 00024660 //F00 DD DSN=&&LS00,DISP=(NEW,PASS), 00024670 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00024680 //F12 DD DSN=&&LS12,DISP=(NEW,PASS), 00024690 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00024700 //F36 DD DSN=&&LS36,DISP=(NEW,PASS), 00024710 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00024720 //F60 DD DSN=&&LS60,DISP=(NEW,PASS), 00024730 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00024740 //F84 DD DSN=&&LS84,DISP=(NEW,PASS), 00024750 // UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00024760 //WORK DD UNIT=SYSWK,SPACE=(CYL,3,,CONTIG) 00024770 //* 00024780 //* 00024790 //* VERIFY SOUTHERN HEMISPHERE MEDIUM RANGE FORECASTS FOR SUMAC 00024800 //* 00024810 //VERMRFS EXEC PGM=SUMAC4 00024820 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00024830 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00024840 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00024850 //FT20F001 DD DSN=NMC.PROD.JCDATA(SH31),DISP=SHR,LABEL=(,,,IN) 00024860 // DD DSN=NMC.PROD.JCDATA(AUS24),DISP=SHR,LABEL=(,,,IN) 00024870 // DD DSN=NMC.PROD.JCDATA(SPA22),DISP=SHR,LABEL=(,,,IN) 00024880 // DD DSN=NMC.PROD.JCDATA(SAM30),DISP=SHR,LABEL=(,,,IN) 00024890 // DD DSN=NMC.PROD.JCDATA(SAF20),DISP=SHR,LABEL=(,,,IN) 00024900 //FT30F001 DD DSN=NMC.PROD.ADPVERSH.T12Z.CUR,DISP=SHR 00024910 //FT60F001 DD DSN=NMC.PROD.ADPVER4.DLYSTATS,DISP=MOD 00024920 //F012MRFS DD DSN=&&LS12,DISP=(OLD,DELETE) 00024930 //F036MRFS DD DSN=&&LS36,DISP=(OLD,DELETE) 00024940 //F060MRFS DD DSN=&&LS60,DISP=(OLD,DELETE) 00024950 //F084MRFS DD DSN=&&LS84,DISP=(OLD,DELETE) 00024960 //FT05F001 DD * 00024970 &OPTION WRSTAT=T, &END 00024980 &FILES NFILE=4, RPT=1, FORFIL='F012MRFS','F036MRFS', &END 00024990 &FILES FORFIL(3)='F060MRFS', FORFIL(4)='F084MRFS', &END 00025000 /* 00025010 //* 00025020 //* 00025030 //* VERIFY JET WINDS EXCEEDING 80 KNOTS FOR UKMET 00025040 //* 00025050 //V80KTS EXEC PGM=ACUMVER4 00025060 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00025070 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00025080 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00025090 //FT09F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00025100 //FT10F001 DD DUMMY 00025110 //F024UKM1 DD DSN=&&F24UKMET,DISP=(OLD,PASS) 00025120 //F036UKM1 DD DSN=&&F36UKMET,DISP=(OLD,PASS) 00025130 //V024UKM1 DD DSN=NMC.PROD.SUMAC.V024UKM1,DISP=SHR 00025140 //V036UKM1 DD DSN=NMC.PROD.SUMAC.V036UKM1,DISP=SHR 00025150 //FT05F001 DD * 00025160 &ANLFIL VDATE1=00010100, VDATE2=99123112, &END 00025170 &FILES NFILE=2,FORFIL='F024UKM1','F036UKM1',VSAM=T,MINWND=41.12, &END 00025180 /* 00025190 //* 00025200 //* VERIFY JET WINDS EXCEEDING 120 KNOTS FOR UKMET 00025210 //* 00025220 //V120KTS EXEC PGM=ACUMVER4 00025230 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00025240 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00025250 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00025260 //FT09F001 DD DSN=NMC.PROD.ADPVERNH.T12Z.CUR,DISP=SHR 00025270 //FT10F001 DD DUMMY 00025280 //F024UKM2 DD DSN=&&F24UKMET,DISP=(OLD,PASS) 00025290 //F036UKM2 DD DSN=&&F36UKMET,DISP=(OLD,PASS) 00025300 //V024UKM2 DD DSN=NMC.PROD.SUMAC.V024UKM2,DISP=SHR 00025310 //V036UKM2 DD DSN=NMC.PROD.SUMAC.V036UKM2,DISP=SHR 00025320 //FT05F001 DD * 00025330 &ANLFIL VDATE1=00010100, VDATE2=99123112, &END 00025340 &FILES NFILE=2,FORFIL='F024UKM2','F036UKM2',VSAM=T,MINWND=61.68, &END 00025350 /* 00025360 //* 00025370 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00025380 //* 00025390 //COPYPRT1 EXEC PGM=IEBGENER,COND=((0,EQ,NOPRINT),EVEN) 00025400 //SYSIN DD DUMMY 00025410 //SYSPRINT DD DUMMY 00025420 //SYSUT1 DD DSN=&&TEMP06,DISP=(OLD,PASS) 00025430 //SYSUT2 DD SYSOUT=A 00025440 //* 00025450 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00025460 //* ABOVE DECK CREATED WEDNESDAY AUG 10, 1994 - 0753 26.99 LST 00025470 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00025480 // 00025490 //WW0156A7 JOB (WX11008M1H1040X,WWB3-A10),'VLCEK',REGION=2000K,TIME=10, 00025500 // MSGCLASS=R 00025510 //*MAIN CLASS=NMC3,ORG=WWBAD1 00025520 //* 00025530 //* RETRIEVE UNITED KINGDOM FORECASTS (SOUTHERN HEMISPHERE) 00025540 //* 00025550 //*NET ID=WN00ZNMC,HC=1 00025560 //DISARCUK EXEC PGM=DISARCV 00025570 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00025580 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00025590 //FT06F001 DD DSN=&&TEMP06,UNIT=SYSWK,SPACE=(CYL,(4,2)), 00025600 // DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408),DISP=(NEW,PASS) 00025610 //FT10F001 DD DSN=NMC.PROD.ADPUPA.T12Z.CUR,DISP=SHR 00025620 //FT11F001 DD DUMMY 00025630 //ARCH0001 DD DSN=NMC.PROD.ARCH0001.VUKMETSH,DISP=SHR 00025640 //ARCH0002 DD DSN=NMC.PROD.ARCH0002.VUKMETSH,DISP=SHR 00025650 //ARCH0003 DD DSN=NMC.PROD.ARCH0003.VUKMETSH,DISP=SHR 00025660 //ARCH0004 DD DSN=NMC.PROD.ARCH0004.VUKMETSH,DISP=SHR 00025670 //ARCH0005 DD DSN=NMC.PROD.ARCH0005.VUKMETSH,DISP=SHR 00025680 //ARCH0006 DD DSN=NMC.PROD.ARCH0006.VUKMETSH,DISP=SHR 00025690 //ARCH0007 DD DSN=NMC.PROD.ARCH0007.VUKMETSH,DISP=SHR 00025700 //ARCH0008 DD DSN=NMC.PROD.ARCH0008.VUKMETSH,DISP=SHR 00025710 //ARCH0009 DD DSN=NMC.PROD.ARCH0009.VUKMETSH,DISP=SHR 00025720 //ARCH0010 DD DSN=NMC.PROD.ARCH0010.VUKMETSH,DISP=SHR 00025730 //ARCH1201 DD DSN=NMC.PROD.ARCH1201.VUKMETSH,DISP=SHR 00025740 //ARCH1202 DD DSN=NMC.PROD.ARCH1202.VUKMETSH,DISP=SHR 00025750 //ARCH1203 DD DSN=NMC.PROD.ARCH1203.VUKMETSH,DISP=SHR 00025760 //ARCH1204 DD DSN=NMC.PROD.ARCH1204.VUKMETSH,DISP=SHR 00025770 //ARCH1205 DD DSN=NMC.PROD.ARCH1205.VUKMETSH,DISP=SHR 00025780 //ARCH1206 DD DSN=NMC.PROD.ARCH1206.VUKMETSH,DISP=SHR 00025790 //ARCH1207 DD DSN=NMC.PROD.ARCH1207.VUKMETSH,DISP=SHR 00025800 //ARCH1208 DD DSN=NMC.PROD.ARCH1208.VUKMETSH,DISP=SHR 00025810 //ARCH1209 DD DSN=NMC.PROD.ARCH1209.VUKMETSH,DISP=SHR 00025820 //ARCH1210 DD DSN=NMC.PROD.ARCH1210.VUKMETSH,DISP=SHR 00025830 //F00UKMET DD DSN=&&F00UKMET,DISP=(NEW,PASS), 00025840 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00025850 //F12UKMET DD DSN=&&F12UKMET,DISP=(NEW,PASS), 00025860 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00025870 //F24UKMET DD DSN=&&F24UKMET,DISP=(NEW,PASS), 00025880 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00025890 //F36UKMET DD DSN=&&F36UKMET,DISP=(NEW,PASS), 00025900 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00025910 //F48UKMET DD DSN=&&F48UKMET,DISP=(NEW,PASS), 00025920 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00025930 //F60UKMET DD DSN=&&F60UKMET,DISP=(NEW,PASS), 00025940 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00025950 //F72UKMET DD DSN=&&F72UKMET,DISP=(NEW,PASS), 00025960 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00025970 //F96UKMET DD DSN=&&F96UKMET,DISP=(NEW,PASS), 00025980 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00025990 //F20UKMET DD DSN=&&F20UKMET,DISP=(NEW,PASS), 00026000 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00026010 //F44UKMET DD DSN=&&F44UKMET,DISP=(NEW,PASS), 00026020 // UNIT=SYSWK,SPACE=(CYL,2,,CONTIG) 00026030 //FT05F001 DD * 00026040 F00UKMET F12UKMET F24UKMET F36UKMET F48UKMET F60UKMET F72UKMET 00026050 F96UKMET F20UKMET F44UKMET 00026060 /* 00026070 //* 00026080 //* VERIFY MEDIUM RANGE AND UNITED KINGDOM FORECASTS 00026090 //* 00026100 //VERIFY EXEC PGM=SUMAC4 00026110 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00026120 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00026130 //FT06F001 DD DSN=&&TEMP06,DISP=(MOD,PASS) 00026140 //FT20F001 DD DSN=NMC.PROD.JCDATA(SH31),DISP=SHR,LABEL=(,,,IN) 00026150 // DD DSN=NMC.PROD.JCDATA(AUS24),DISP=SHR,LABEL=(,,,IN) 00026160 // DD DSN=NMC.PROD.JCDATA(SPA22),DISP=SHR,LABEL=(,,,IN) 00026170 // DD DSN=NMC.PROD.JCDATA(SAM30),DISP=SHR,LABEL=(,,,IN) 00026180 // DD DSN=NMC.PROD.JCDATA(SAF20),DISP=SHR,LABEL=(,,,IN) 00026190 //FT30F001 DD DSN=NMC.PROD.ADPVERSH.T12Z.CUR,DISP=SHR 00026200 //FT60F001 DD DSN=NMC.PROD.ADPVER4.DLYSTATS,DISP=MOD 00026210 //F000UKMS DD DSN=&&F00UKMET,DISP=(OLD,DELETE) 00026220 //F012UKMS DD DSN=&&F12UKMET,DISP=(OLD,DELETE) 00026230 //F024UKMS DD DSN=&&F24UKMET,DISP=(OLD,DELETE) 00026240 //F036UKMS DD DSN=&&F36UKMET,DISP=(OLD,DELETE) 00026250 //F048UKMS DD DSN=&&F48UKMET,DISP=(OLD,DELETE) 00026260 //F060UKMS DD DSN=&&F60UKMET,DISP=(OLD,DELETE) 00026270 //F072UKMS DD DSN=&&F72UKMET,DISP=(OLD,DELETE) 00026280 //F096UKMS DD DSN=&&F96UKMET,DISP=(OLD,DELETE) 00026290 //F120UKMS DD DSN=&&F20UKMET,DISP=(OLD,DELETE) 00026300 //F144UKMS DD DSN=&&F44UKMET,DISP=(OLD,DELETE) 00026310 //FT05F001 DD * 00026320 &OPTION WRSTAT=T, &END 00026330 &FILES NFILE=10, RPT=5, &END 00026340 &FILES FORFIL(1)='F000UKMS', FORFIL(2)='F012UKMS', &END 00026350 &FILES FORFIL(3)='F024UKMS', FORFIL(4)='F036UKMS', &END 00026360 &FILES FORFIL(5)='F048UKMS', FORFIL(6)='F060UKMS', &END 00026370 &FILES FORFIL(7)='F072UKMS', FORFIL(8)='F096UKMS', &END 00026380 &FILES FORFIL(9)='F120UKMS', FORFIL(10)='F144UKMS', &END 00026390 /* 00026400 //* 00026410 //LOGCHKPT EXEC PGM=LOGPOINT,PARM='ENMC0' 00026420 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00026430 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00026440 //FT06F001 DD DUMMY 00026450 //FT10F001 DD DSN=NMC.PROD.LOG.POINTERS,DISP=SHR 00026460 //* 00026470 //RLOGNMC EXEC PGM=RUNLOG,PARM='NMC0' 00026480 //STEPLIB DD DSN=NMC.PROD.PAN1.LOAD,DISP=SHR 00026490 //JOBLOG DD DSN=NMC.PROD.JOBLOG,DISP=SHR 00026500 //FT05F001 DD DSN=NMC.PROD.JCDATA(RLOGNMC),DISP=SHR,LABEL=(,,,IN) 00026510 //FT06F001 DD SYSOUT=R 00026520 //FT20F001 DD DSN=NMC.PROD.DATE(T00Z),DISP=SHR,LABEL=(,,,IN) 00026530 //FT30F001 DD DSN=NMC.PROD.LOG.POINTERS,DISP=SHR 00026540 //FT64F001 DD DSN=NMC.PROD.RUNHIST.T00Z.NMC,DISP=SHR 00026550 //FT66F001 DD DSN=NMC.PROD.RUNLOG,DISP=SHR, 00026560 // DCB=(RECFM=F,LRECL=2000,BLKSIZE=2000,DSORG=PO) 00026570 //FT68F001 DD DSN=NMC.PROD.DLYLOG,DISP=SHR, 00026580 // DCB=(RECFM=F,LRECL=2000,BLKSIZE=2000,DSORG=PO) 00026590 //* 00026600 //NOPRINT EXEC PGM=IEFBR14,COND=(1,LT) 00026610 //* 00026620 //COPYPRT1 EXEC PGM=IEBGENER,COND=((0,EQ,NOPRINT),EVEN) 00026630 //SYSIN DD DUMMY 00026640 //SYSPRINT DD DUMMY 00026650 //SYSUT1 DD DSN=&&TEMP06,DISP=(OLD,PASS) 00026660 //SYSUT2 DD SYSOUT=A 00026670 //* 00026680 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00026690 //* ABOVE DECK CREATED WEDNESDAY AUG 10, 1994 - 0753 26.99 LST 00026700 //*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* 00026710 // 00026720