Seven-Step File Load examples: Difference between revisions

From m204wiki
Jump to navigation Jump to search
(Automatically generated page update)
 
(Automatically generated page update)
Line 150: Line 150:
#21
#21
G
G
=24,5,*
<b></b>=24,5,*
I 13,,,0
I 13,,,0
#22
#22
=23,6|13,=
<b></b>=23,6|13,=
I 13,,,1|13
I 13,,,1|13
=22
<b></b>=22
#23
#23
I 14,1,2,-7,-1|13
I 14,1,2,-7,-1|13
D 5,0|13=8|13,0|14
D 5,0|13=8|13,0|14
=21
<b></b>=21
#24
#24
TESTCHAR=5,0,X'8000'
TESTCHAR=5,0,X'8000'
Line 438: Line 438:
<b></b>* $$ EOJ
<b></b>* $$ EOJ


&nbsp;
</p>
</p>
==z/VM seven-step File Load example==
==z/VM seven-step File Load example==
Line 585: Line 585:
#21  
#21  
G  
G  
=24,5,* I 13,,,0  
<b></b>=24,5,* I 13,,,0  
#22  
#22  
=23,6|13,
<b></b>=23,6|13,
= I 13,,,1|13
<b></b>= I 13,,,1|13
=22  
<b></b>=22  
#23 I 14,1,2,-7,-1|13  
#23 I 14,1,2,-7,-1|13  
D 5,0|13=8|13,0|14  
D 5,0|13=8|13,0|14  
=21  
<b></b>=21  
#24  
#24  
G  
G  

Revision as of 04:33, 21 March 2013

Overview

This appendix contain examples of complete seven-step File Loads for the z/OS, z/VSE, and z/VM operating systems. For complete information about using the File Load utility, see File Load Utility.

z/OS seven-step File Load example

//* //FLODSEVN PROC SYSINDX='SYSM.M204', // DBAINDX='SYSM.M204', // RLSE=R90, // SYSOUT=A, // SYSDA=WORK //*******************************************************************// //* COMPUTER CORPORATION OF AMERICA *// //*******************************************************************// //* *// //* THIS IS AN EXAMPLE OF A SEVEN-STEP FILE LOAD *// //* *// //* TO ADAPT THE PROCEDURE TO YOUR INSTALLATION, THE FOLLOWING *// //* SYMBOLIC PARAMETERS MUST BE REVIEWED: *// //* *// //* SYSINDX - FIRST TWO QUALIFIERS OF ALL MODEL 204 SYSTEM *// //* DATASETS *// //* DBAINDX - FIRST TWO QUALIFIERS OF ALL MODEL 204 *// //* DATABASE DATA SETS *// //* RLSE - MODEL 204 RELEASE NUMBER *// //* SYSDA - UNIT ASSIGNED TO THE SYSTEM WORK PACKS *// //* SYSOUT - SYSOUT CLASS *// //* *// //* ALL OCCURRENCES OF "FILENAME" BELOW MUST BE CHANGED TO *// //* REFLECT THE ACTUAL NAME OF THE FILE TO BE CREATED AND LOADED. *// //* ALSO "TAPEI" DATASET IN STEP01 MUST BE MODIFIED TO REFLECT THE *// //* SEQUENTIAL DATASET THAT CONTAINS THE DATA TO BE LOADED. *// //* *// //* USERID AND PASSWORD MUST BE FILLED IN WHERE NEEDED, OR DELETED *// //* IF NOT. *// //* *// //* *// //*******************************************************************// //STEP01 EXEC PGM=BATCH204,REGION=1024K,PARM='SYSOPT=176' //STEPLIB DD DSN=&SYSINDX..&RLSE..LOAD,DISP=SHR //CCASTAT DD DSN=&SYSINDX..CCASTAT,DISP=SHR //CCATEMP DD SPACE=(CYL,(2),,CONTIG),UNIT=&SYSDA //SYSUDUMP DD SYSOUT=&SYSOUT //CCASNAP DD SYSOUT=&SYSOUT //CCAAUDIT DD SYSOUT=&SYSOUT //CCAPRINT DD SYSOUT=&SYSOUT //FILENAME DD DSN=&DBAINDX..FILENAME,DISP=SHR //TAPEI DD DSN=&DBAINDX..OUTFIL,DISP=SHR //TAPE2 DD DSN=&&TAPE2,UNIT=&SYSDA,SPACE=(TRK,(100,10)), // DCB=(RECFM=FB,LRECL=24,BLKSIZE=7200),DISP=(,PASS) //TAPE3 DD DSN=&&TAPE3,UNIT=&SYSDA,SPACE=(TRK,(100,10)), // DCB=(RECFM=VB,LRECL=270,BLKSIZE=6000),DISP=(,PASS) //*******************************************************************// //STEP02 EXEC PGM=SORT,COND=(4,LT) //SYSOUT DD SYSOUT=&SYSOUT //SORTIN DD DSN=&&TAPE2,DISP=(OLD,DELETE) //SORTOUT DD DSN=&&SORTOUT,DISP=(,PASS),SPACE=(CYL,(10,5)), // DCB=(RECFM=FB,LRECL=24,BLKSIZE=2400),UNIT=&SYSDA //SORTWK01 DD UNIT=&SYSDA,SPACE=(CYL,3) //SORTWK02 DD UNIT=&SYSDA,SPACE=(CYL,3) //SORTWK03 DD UNIT=&SYSDA,SPACE=(CYL,3) //SYSUDUMP DD SYSOUT=&SYSOUT //*******************************************************************// //STEP03 EXEC PGM=BATCH204,REGION=1024K,PARM='SYSOPT=176',COND=(4,LE) //STEPLIB DD DSN=&SYSINDX..&RLSE..LOAD,DISP=SHR //CCASTAT DD DSN=&SYSINDX..CCASTAT,DISP=SHR //CCATEMP DD SPACE=(CYL,(2),,CONTIG),UNIT=&SYSDA //FILENAME DD DSN=&DBAINDX..FILENAME,DISP=SHR //CCAAUDIT DD SYSOUT=&SYSOUT //CCAPRINT DD SYSOUT=&SYSOUT //SORT5 DD DSN=&&SORTOUT,DISP=(OLD,DELETE) //TAPE5 DD DSN=&&Z1OUT,DISP=(NEW,PASS),SPACE=(CYL,(10,5)), // DCB=(RECFM=FB,LRECL=24,BLKSIZE=2400),UNIT=&SYSDA //*******************************************************************// //STEP04 EXEC PGM=SORT,COND=(4,LT) //SYSOUT DD SYSOUT=&SYSOUT //SORTIN DD DSN=&&Z1OUT,DISP=(OLD,DELETE) //SORTOUT DD DSN=&&SORT2OUT,DISP=(NEW,PASS),SPACE=(CYL,(10,5)), // DCB=(RECFM=FB,LRECL=24,BLKSIZE=2400),UNIT=&SYSDA //SORTWK01 DD UNIT=&SYSDA,SPACE=(CYL,3) //SORTWK02 DD UNIT=&SYSDA,SPACE=(CYL,3) //SORTWK03 DD UNIT=&SYSDA,SPACE=(CYL,3) //SYSUDUMP DD SYSOUT=&SYSOUT //*******************************************************************// //STEP05 EXEC PGM=BATCH204,REGION=1024K,PARM='SYSOPT=176',COND=(4,LE) //STEPLIB DD DSN=&SYSINDX..&RLSE..LOAD,DISP=SHR //CCASTAT DD DSN=&SYSINDX..CCASTAT,DISP=SHR //CCATEMP DD SPACE=(CYL,(2),,CONTIG),UNIT=&SYSDA //FILENAME DD DSN=&DBAINDX..FILENAME,DISP=SHR //SYSUDUMP DD SYSOUT=&SYSOUT //CCASNAP DD SYSOUT=&SYSOUT //CCAAUDIT DD SYSOUT=&SYSOUT //CCAPRINT DD SYSOUT=&SYSOUT //SORT5 DD DSN=&&SORT2OUT,DISP=(OLD,DELETE) //TAPE5 DD DUMMY,DCB=(RECFM=FB,LRECL=24,BLKSIZE=2400) //*******************************************************************// //STEP06 EXEC PGM=SORT,COND=(4,LT) //CCAEXITS DD DSN=&SYSINDX..&RLSE..LOAD,DISP=SHR //SYSOUT DD SYSOUT=&SYSOUT //CCAPRINT DD SYSOUT=&SYSOUT //SORTIN DD DSN=&&TAPE3,DISP=(OLD,DELETE) //SORTOUT DD DSN=&&SORT3OUT,DISP=(NEW,PASS),UNIT=&SYSDA, // SPACE=(TRK,(100,10),RLSE), // DCB=(RECFM=VB,LRECL=270,BLKSIZE=6000) //SORTWK01 DD UNIT=&SYSDA,SPACE=(CYL,3) //SORTWK02 DD UNIT=&SYSDA,SPACE=(CYL,3) //SORTWK03 DD UNIT=&SYSDA,SPACE=(CYL,3) //SYSUDUMP DD SYSOUT=&SYSOUT //*******************************************************************// //STEP07 EXEC PGM=BATCH204,REGION=1024K,PARM='SYSOPT=176',COND=(4,LE) //STEPLIB DD DSN=&SYSINDX..&RLSE..LOAD,DISP=SHR //CCASTAT DD DSN=&SYSINDX..CCASTAT,DISP=SHR //CCATEMP DD SPACE=(CYL,(2),,CONTIG),UNIT=&SYSDA //FILENAME DD DSN=&DBAINDX..FILENAME,DISP=SHR //SYSUDUMP DD SYSOUT=&SYSOUT //CCASNAP DD SYSOUT=&SYSOUT //CCAAUDIT DD SYSOUT=&SYSOUT //CCAPRINT DD SYSOUT=&SYSOUT //SORT5 DD DSN=&&SORT3OUT,DISP=(OLD,DELETE) //TAPE5 DD DUMMY,DCB=(RECFM=FB,LRECL=24,BLKSIZE=2400) // PEND //* //FLODSEVN EXEC FLODSEVN //STEP01.CCAIN DD * MAXBUF=10,SPCORE=50000 LOGIN USERID PASSWORD * THE CREATE COMMAND AND ITS PARAMETERS, THE OPEN, INITIALIZE, * DEFINE, AND FILE LOAD STATEMENTS SHOULD GO HERE * FOR EXAMPLE: CREATE FILE FILENAME PARAMETER ASTRPPG=600,ATRPG=1,FVFPG=1 PARAMETER MVFPG=1,BRECPPG=300 PARAMETER BSIZE=40,BRESERVE=50 PARAMETER CSIZE=4,DSIZE=30 END OPEN FILENAME INITIALIZE DEFINE FIELD TESTCHAR WITH ORD DEFINE FIELD TESTTWO DEFINE FIELD TESTTHR DEFINE FIELD TESTFR FLOD -1,-1,0

  1. 21

G =24,5,* I 13,,,0

  1. 22

=23,6|13,= I 13,,,1|13 =22

  1. 23

I 14,1,2,-7,-1|13 D 5,0|13=8|13,0|14 =21

  1. 24

TESTCHAR=5,0,X'8000' END EOJ //STEP02.SYSIN DD * SORT FIELDS=(1,16,CH,A) //STEP03.CCAIN DD * MAXBUF=10,SPCORE=50000 LOGIN USERID PASSWORD OPEN FILENAME Z EOJ //STEP04.SYSIN DD * SORT FIELDS=(1,16,CH,A) //STEP05.CCAIN DD * MAXBUF=10,SPCORE=50000 LOGIN USERID PASSWORD OPEN FILENAME Z //STEP06.SYSIN DD * SORT FIELDS=(5,35,CH,A) RECORD TYPE=V,LENGTH=(270,40,270,40) MODS E15=(OI15OS,1500,CCAEXITS,N),E35=(OI35OS,800,CCAEXITS,N) END //STEP06.CCAIN DD * SORT FIELDS=(5,35,CH,A) RECORD TYPE=V,LENGTH=(270,40,270,40) MODS E15=(OI15OS,1500,CCAEXITS,N),E35=(OI35OS,800,CCAEXITS,N) END //STEP07.CCAIN DD * MAXBUF=10,SPCORE=50000 LOGIN USERID PASSWORD OPEN FILENAME Z EOJ /*EOF

z/VSE seven-step File Load example

// JOB FLODSEVN DOS/VSE * SAMPLE SEVEN STEP FASTLOAD // OPTION LOG // DLBL EXAMPLE,'EXAMPLE.ONLINE.LIBRARY' // EXTENT ,TSTWKB // LIBDEF *,SEARCH=(EXAMPLE.V210) /* // DLBL CCASTAT,'EXAMPLE.FLOD.CCASTAT',,SD // EXTENT SYS021,TSTWKA,1,0,startno,1 /* // DLBL CCATEMP,'EXAMPLE.FLOD.CCATEMP',0,DA // EXTENT SYS020,TSTWKB,1,0,startno,5 /* // DLBL TAPEI,'EXAMPLE.FLOD.INPUT',0 // EXTENT SYS020,TSTWKB,1,0,startno,10 /* // DLBL TAPE2,'EXAMPLE.FLOD.TAPE2',0 // EXTENT SYS020,TSTWKB,1,0,startno,10 /* // DLBL TAPE3,'EXAMPLE.FLOD.TAPE3',0 // EXTENT SYS020,TSTWKB,1,0,startno,10 /* // DLBL FLDFILE,'EXAMPLE.FLOD.M204FILE',0,DA // EXTENT SYS020,TSTWKB,1,0,startno,23 /* // ASSGN SYS020,DISK,VOL=TSTWKB,SHR // ASSGN SYS021,DISK,VOL=TSTWKA,SHR // ASSGN SYS008,04E /* // UPSI 10010000 // EXEC BATCH204,SIZE=AUTO DEFINE DATASET TAPEI WITH SCOPE=SYSTEM RECFM=F LRECL=80 DEFINE DATASET TAPE2 WITH SCOPE=SYSTEM RECFM=FB LRECL=24 BLKSIZE=6000 DEFINE DATASET TAPE3 WITH SCOPE=SYSTEM RECFM=VB LRECL=270 BLKSIZE=6000 MAXBUF=10,SPCORE=10000 LOGON SUPERKLUGE PIGFLOUR CREATE FILE FLDFILE PARAMETER ASTRPPG=768,BRECPPG=133,BRESERVE=51 PARAMETER BSIZE=11,CSIZE=5,DSIZE=30 END OPEN FLDFILE IN FLDFILE INITIALIZE DEFINE FIELD LAST NAME (KEY) DEFINE FIELD FIRST NAME DEFINE FIELD MIDDLE INITIAL DEFINE FIELD AGE (NR OCC 1 LEN 3) DEFINE FIELD SEX (KEY FRV FV OCC 1 LEN 1) DEFINE FIELD DEPT NO (KEY INV FRV FV) DEFINE FIELD EMPLOYEE NO (OCC 1 LEN 13) CLOSE ALL OPEN FLDFILE * FILELOAD -1,-1,0 FLOD -1,-1,0 G LAST NAME=1,12,X'8000' MIDDLE INITIAL=24,1 FIRST NAME=13,11 SEX=28,1 CFB 1,25,2 AGE=1]1S,0]0S P 25,2 EMPLOYEE NO=29,13 DEPT NO=29,4 END EOJ /* * STEP 2 SORT .* .* ALL SORTS NEED LIBDEF TO LOADLIB??? * // JOB FLODST2 // EXEC PROC=M204V210 // LIBDEF *,SEARCH=(M204LIB.V210) // DLBL SORTIN1,'EXAMPLE.FLOD.TAPE3',0 // EXTENT SYS020,TSTWKB,1,0,startno,10 // DLBL SORTOUT,'EXAMPLE.FLOD.TAPE3.SORT',0 // EXTENT SYS020,TSTWKB,1,0,startno,20 // ASSGN SYS020,DISK,VOL=TSTWKB,SHR // EXEC SORT SORT FIELDS=(5,45,CH,A) RECORD TYPE=V,LENGTH=270 MODS PH1=(OI15,L3000,E15),PH3=(OI35,L1000,E35) INPFIL BLKSIZE=6000 OUTFIL BLKSIZE=1680 END /* * STEP 3 // JOB FLODST3 // DLBL EXAMPLE,'EXAMPLE.ONLINE.LIBRARY' CORE IMAGE M204 // EXTENT ,TSTWKB // LIBDEF *,SEARCH=(EXAMPLE.V210) /* // DLBL CCASTAT,'EXAMPLE.FLOD.CCASTAT',,SD // EXTENT SYS021,TSTWKA,1,0,startno,1 /* // DLBL CCATEMP,'EXAMPLE.FLOD.CCATEMP',0,DA // EXTENT SYS020,TSTWKB,1,0,startno,5 /* // DLBL SORT5,'EXAMPLE.FLOD.TAPE3.SORT',0 // EXTENT SYS020,TSTWKB,1,0,startno,20 /* // DLBL TAPE5,'EXAMPLE.FLOD.TAPE5',0 // EXTENT SYS020,TSTWKB,1,0,1970,15 /* // DLBL FLDFILE,'EXAMPLE.FLOD.M204FILE',0,DA // EXTENT SYS020,TSTWKB,1,0,startno,23 /* // ASSGN SYS020,DISK,VOL=TSTWKB,SHR // ASSGN SYS021,DISK,VOL=TSTWKA,SHR // ASSGN SYS008,04E /* // EXEC BATCH204,SIZE=AUTO PAGESZ=6184,NUSERS=1,MAXBUF=6 LOGIN SUPERKLUGE PIGFLOUR DEFINE DATASET SORT5 WITH SCOPE=SYSTEM RECFM=VB LRECL=270 BLKSIZE=1680 DEFINE DATASET TAPE5 WITH SCOPE=SYSTEM RECFM=FB LRECL=24 BLKSIZE=1680 OPEN FLDFILE Z EOJ CLOSE FLDFILE /* * STEP 4 // JOB FLODST4 // DLBL SORTIN1,'EXAMPLE.FLOD.TAPE2',0 // EXTENT SYS020,TSTWKB,1,0,startno,10 // DLBL SORTOUT,'EXAMPLE.FLOD.TAPE2.SORT',0 // EXTENT SYS020,TSTWKB,1,0,startno,20 // ASSGN SYS020,DISK,VOL=TSTWKB,SHR // EXEC SORT SORT FIELDS=(1,16,CH,A) RECORD TYPE=F,LENGTH=24 INPFIL BLKSIZE=6000 OUTFIL BLKSIZE=1680 END /* * STEP 5 // JOB FLODST5 // DLBL EXAMPLE,'EXAMPLE.ONLINE.LIBRARY' CORE IMAGE M204 // EXTENT ,TSTWKB // LIBDEF *,SEARCH=(EXAMPLE.V210) /* // DLBL CCASTAT,'EXAMPLE.FLOD.CCASTAT',,SD // EXTENT SYS021,TSTWKA,1,0,startno,1 /* // DLBL CCATEMP,'EXAMPLE.FLOD.CCATEMP',0,DA // EXTENT SYS020,TSTWKB,1,0,startno,5 /* // DLBL SORT5,'EXAMPLE.FLOD.TAPE2.SORT',0 // EXTENT SYS020,TSTWKB,1,0,startno,20 /* // DLBL TAPE5,'EXAMPLE.FLOD.TAPE5',0 // EXTENT SYS020,TSTWKB,1,0,startno,15 /* // DLBL FLDFILE,'EXAMPLE.FLOD.M204FILE',0,DA // EXTENT SYS020,TSTWKB,1,0,startno,23 /* // ASSGN SYS020,DISK,VOL=TSTWKB,SHR // ASSGN SYS021,DISK,VOL=TSTWKA,SHR // ASSGN SYS008,04E /* // EXEC BATCH204,SIZE=AUTO PAGESZ=6184,NUSERS=1,MAXBUF=6 LOGIN SUPERKLUGE PIGFLOUR DEFINE DATASET SORT5 WITH SCOPE=SYSTEM RECFM=FB LRECL=24 BLKSIZE=1680 DEFINE DATASET TAPE5 WITH SCOPE=SYSTEM RECFM=FB LRECL=24 BLKSIZE=1680 OPEN FLDFILE Z EOJ CLOSE FLDFILE /* * STEP 6 // JOB FLODST6 // DLBL SORTIN1,'EXAMPLE.FLOD.TAPE5',0 // EXTENT SYS020,TSTWKB,1,0,startno,15 // DLBL SORTOUT,'EXAMPLE.FLOD.TAPE5.SORT',0 // EXTENT SYS020,TSTWKB,1,0,startno,20 // ASSGN SYS020,DISK,VOL=TSTWKB,SHR // EXEC SORT SORT FIELDS=(1,16,CH,A) RECORD TYPE=F,LENGTH=24 INPFIL BLKSIZE=1680 OUTFIL BLKSIZE=1680 END /* /& * STEP 7 // JOB FLODST7 // DLBL EXAMPLE,'EXAMPLE.ONLINE.LIBRARY' CORE IMAGE M204 // EXTENT ,TSTWKB // LIBDEF *,SEARCH=(EXAMPLE.V210) /* // DLBL CCASTAT,'EXAMPLE.FLOD.CCASTAT',,SD // EXTENT SYS021,TSTWKA,1,0,startno,1 /* // DLBL CCATEMP,'EXAMPLE.FLOD.CCATEMP',0,DA // EXTENT SYS020,TSTWKB,1,0,startno,5 /* /* // DLBL SORT5,'EXAMPLE.FLOD.TAPE5.SORT',0 // EXTENT SYS020,TSTWKB,1,0,startno,20 /* // DLBL TAPE5,'EXAMPLE.FLOD.TAPE5',0 // EXTENT SYS020,TSTWKB,1,0,startno,15 /* // DLBL FLDFILE,'EXAMPLE.FLOD.M204FILE',0,DA // EXTENT SYS020,TSTWKB,1,0,startno,23 /* // ASSGN SYS021,DISK,VOL=TSTWKA,SHR // ASSGN SYS020,DISK,VOL=TSTWKB,SHR // ASSGN SYS021,DISK,VOL=TSTWKA,SHR // ASSGN SYS008,04E /* // EXEC BATCH204,SIZE=AUTO PAGESZ=6184,NUSERS=1,MAXBUF=6 LOGIN SUPERKLUGE PIGFLOUR DEFINE DATASET SORT5 WITH SCOPE=SYSTEM RECFM=FB LRECL=24 BLKSIZE=1680 DEFINE DATASET TAPE5 WITH SCOPE=SYSTEM RECFM=FB LRECL=24 BLKSIZE=1680 OPEN FLDFILE Z EOJ CLOSE FLDFILE /* /& * $$ EOJ

z/VM seven-step File Load example

The VEHICLE7 EXEC below contains question marks (?) that indicate items for the user to supply. This EXEC is called by the FASTLOAD EXEC, and is invoked by the following command:

FASTLOAD VEHICLE7 (7STEP

In the example that follows, the PRINCIPLE DRIVER field is ORDERED (see VEHICLES CCAIN1), calling for use of the variable-length data set processing.

&CONTROL OFF &ERROR &EXIT &RETCODE &IF &1 EQ 0 &GOTO -ACCESS FILEDEF * CLEAR &GOTO -FLOAD&1 -ACCESS &IF &DISKO NE NA RELEASE O ACCESS ??? O &IF &DISKP NE NA RELEASE P ACCESS ??? P &IF &DISKQ NE NA RELEASE Q ACCESS ??? Q &EXIT -FLOAD1 FILEDEF TAPEI DISK VEHICLES FLODINPT D4 (BLOCK 990 LRECL 986 RECFM VB FILEDEF TAPE2 DISK VEHICLES DEFERRED D (BLOCK 24 LRECL 24 RECFM FB FILEDEF TAPE3 DISK VEHICLES DEFERVAR D (BLOCK 6000 LRECL 270 RECFM VB FILEDEF CCAIN DISK VEHICLES CCAIN1 * FILEDEF VEHICLES ? DSN M204 CMS VEHICLES &GOTO -COMMON -FLOAD2 SSORT VEHICLES DEFERRED D VEHICLES DEFSORT D FASTLOAD SORTCTRL B &EXIT &RC -FLOAD3 FILEDEF SORT5 DISK VEHICLES DEFSORT D FILEDEF TAPE5 DISK VEHICLES FRV D ( BLOCK 6000 LRECL 24 RECFM FB FILEDEF CCAIN DISK VEHICLES CCAIN3 * FILEDEF VEHICLES ? DSN M204 CMS VEHICLES &GOTO -COMMON -FLOAD4 SSORT VEHICLES FRV D VEHICLES FRVSORT D FASTLOAD SORTCTRL B &EXIT &RC -FLOAD5 FILEDEF SORT5 DISK VEHICLES FRVSORT D FILEDEF TAPE5 DUMMY ( BLOCK 6000 LRECL 24 RECFM FB FILEDEF CCAIN DISK VEHICLES CCAIN5 * FILEDEF VEHICLES ? DSN M204 CMS VEHICLES &GOTO -COMMON -FLOAD6 FILEDEF CCAIN DISK FASTLOAD VSRTCTRL B FILEDEF CCAPRINT DISK FLOD&1 CCAPRINT A SSORT VEHICLES DEFERVAR D VEHICLES VDEFSORT D FASTLOAD VSRTCTRL B &EXIT &RC -FLOAD7 FILEDEF SORT5 DISK VEHICLES VDEFSORT D FILEDEF TAPE5 DUMMY ( BLOCK 6000 LRECL 24 RECFM FB FILEDEF CCAIN DISK VEHICLES CCAIN7 * FILEDEF VEHICLES ? DSN M204 CMS VEHICLES &GOTO -COMMON &EXIT -COMMON FILEDEF CCAPRINT DISK FLOD&1 CCAPRINT A FILEDEF CCAAUDIT DISK FLOD&1 CCAAUDIT A FILEDEF CCATEMP ? DSN M204 CMS CCATEMP FILEDEF CCASNAP DUMMY &STACK SYSOPT 128 &EXIT VEHICLES CCAIN1 SPCORE=10000 CREATE VEHICLES PARAMETER BSIZE=12,CSIZE=12,DSIZE=15,FILEORG=X'0A' END OPEN VEHICLES INITIALIZE HASH VIN - (NON-FRV, NON-KEY, NON-CODED, STRING, NON-RANGE, - VISIBLE, OCCURS 1, LENGTH 10, PAD X'00') DEFINE GARAGING LOCATION - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, NON-CODED, - STRING, NON-RANGE, VISIBLE, OCCURS 1, LENGTH 4, PAD X'00' DEFINE USAGE - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, CODED, STRING, - NON-RANGE, VISIBLE, OCCURS 1 DEFINE OWNER POLICY - WITH UPDATE IN PLACE, DEFERRABLE, NON-FRV, KEY, MANY-VALUED, CODED, - BINARY, NON-RANGE, VISIBLE, OCCURS 1 DEFINE PRINCIPLE DRIVER - WITH UPDATE IN PLACE, DEFERRABLE, NON-FRV, ORD, MANY-VALUED, CODED, - BINARY, NON-RANGE, VISIBLE, OCCURS 1 DEFINE OTHER DRIVER - WITH UPDATE IN PLACE, DEFERRABLE, NON-FRV, KEY, MANY-VALUED, CODED, - BINARY, NON-RANGE, VISIBLE DEFINE MAKE - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, CODED, STRING, - NON-RANGE, VISIBLE, OCCURS 1 DEFINE OPTION - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, CODED, STRING, - NON-RANGE, VISIBLE DEFINE DEDUCTIBLE - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, NON-CODED, - STRING, NON-RANGE, VISIBLE, OCCURS 1, LENGTH 3, PAD X'00' DEFINE COLOR - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, CODED, STRING, - NON-RANGE, VISIBLE, OCCURS 1 DEFINE VEHICLE RATING - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, NON-CODED, - STRING, NON-RANGE, VISIBLE, OCCURS 1, LENGTH 1, PAD X'00' DEFINE BODY - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, NON-CODED, - STRING, NON-RANGE, VISIBLE, OCCURS 1, LENGTH 4, PAD X'00' DEFINE LIABILITY PREMIUM - WITH UPDATE IN PLACE, NON-FRV, NON-KEY, MANY-VALUED, CODED, BINARY, - NON-RANGE, VISIBLE, OCCURS 1 DEFINE SURCHARGE% - WITH UPDATE IN PLACE, NON-FRV, NON-KEY, NON-CODED, STRING, NON-RANGE, - VISIBLE DEFINE COLLISION PREMIUM - WITH UPDATE IN PLACE, NON-FRV, NON-KEY, MANY-VALUED, CODED, BINARY, - NON-RANGE, VISIBLE, OCCURS 1 DEFINE VEHICLE USE CLASS - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, NON-CODED, - STRING, NON-RANGE, VISIBLE, OCCURS 1, LENGTH 2, PAD X'00' DEFINE YEAR - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, NON-CODED, - STRING, NON-RANGE, VISIBLE, OCCURS 1, LENGTH 2, PAD X'00' DEFINE LIABILITY LIMIT - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, NON-CODED, - STRING, NON-RANGE, VISIBLE, OCCURS 1, LENGTH 3, PAD X'00' DEFINE VEHICLE PREMIUM - WITH UPDATE IN PLACE, NON-FRV, NON-KEY, MANY-VALUED, CODED, BINARY, - NON-RANGE, VISIBLE, OCCURS 1 DEFINE TRANS - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, NON-CODED, - STRING, NON-RANGE, VISIBLE, OCCURS 1, LENGTH 2, PAD X'00' DEFINE MODEL - WITH UPDATE IN PLACE, DEFERRABLE, FRV, KEY, FEW-VALUED, CODED, STRING, - NON-RANGE, VISIBLE, OCCURS 1 FLOD -1,-1,0

  1. 21

G =24,5,* I 13,,,0

  1. 22

=23,6|13, = I 13,,,1|13 =22

  1. 23 I 14,1,2,-7,-1|13

D 5,0|13=8|13,0|14 =21

  1. 24

G VIN=11,10,X'8000' END EOJ VEHICLES CCAIN3 SPCORE=30000 OPEN VEHICLES Z EOJ VEHICLES CCAIN5 SPCORE=30000 OPEN VEHICLES Z EOJ VEHICLES CCAIN7 SPCORE=30000 OPEN VEHICLES Z EOJ FASTLOAD SORTCTRL SORT FIELDS=(1,16,CH,A) FASTLOAD VSRTCTRL SORT FIELDS=(5,20,CH,A) RECORD TYPE=V,LENGTH=(270,50,270,50) MODS E15=(OI15CMS,1500),E35=(OI35CMS,800) END