// DATA  FILEID=VSB004READER
                                   VV       VV                                01
                                   VVV     VVV                                02
                                    VV     VV                                 03
                                    VVV   VVV                                 04
                                     VV   VV                                  05
                                     VVV VVV                                  06
                                      VV VV                                   07
                                      VVVVV                                   08
                                       VVV                                    09
                                       VVV                                    10
                                        V                                     11
                                                                              12
                                                                              13
                                     #######                                  14
                                     #######                                  15
                                                                              16
                                                                              17
                                     SSSSSSSS                                 21
                                    SSSSSSSSSS                                22
                                   SSS     SSS                                23
                                   SSS                                        24
                                   SSSSSSSSS                                  25
                                    SSSSSSSSS                                 26
                                           SSS                                27
                                           SSS                                28
                                   SSS     SSS                                29
                                   SSSSSSSSSS                                 30
                                    SSSSSSSS                                  31
                                                                              32
                                                                              33
                                     #######                                  34
                                     #######                                  35
                                                                              36
                                                                              37
                                   BBBBBBBBBB                                 41
                                   BBBBBBBBBBB                                42
                                   BBB      BBB                               43
                                   BBB      BBB                               44
                                   BBBBBBBBBBB                                45
                                   BBBBBBBBBB                                 46
                                   BBB     BBB                                47
                                   BBB      BBB                               48
                                   BBB      BBB                               49
                                   BBBBBBBBBBBB                               50
                                   BBBBBBBBBBB                                51
    F I L E    E N D    R P G - S A M                                         99
/*
// DATA  FILEID=VSB007CARDIN
                                   VV       VV                                01
                                   VVV     VVV                                02
                                    VV     VV                                 03
                                    VVV   VVV                                 04
                                     VV   VV                                  05
                                     VVV VVV                                  06
                                      VV VV                                   07
                                      VVVVV                                   08
                                       VVV                                    09
                                       VVV                                    10
                                        V                                     11
                                                                              12
                                                                              13
                                     #######                                  14
                                     #######                                  15
                                                                              16
                                                                              17
                                     SSSSSSSS                                 21
                                    SSSSSSSSSS                                22
                                   SSS     SSS                                23
                                   SSS                                        24
                                   SSSSSSSSS                                  25
                                    SSSSSSSSS                                 26
                                           SSS                                27
                                           SSS                                28
                                   SSS     SSS                                29
                                   SSSSSSSSSS                                 30
                                    SSSSSSSS                                  31
                                                                              32
                                                                              33
                                     #######                                  34
                                     #######                                  35
                                                                              36
                                                                              37
                                   BBBBBBBBBB                                 41
                                   BBBBBBBBBBB                                42
                                   BBB      BBB                               43
                                   BBB      BBB                               44
                                   BBBBBBBBBBB                                45
                                   BBBBBBBBBB                                 46
                                   BBB     BBB                                47
                                   BBB      BBB                               48
                                   BBB      BBB                               49
                                   BBBBBBBBBBBB                               50
                                   BBBBBBBBBBB                                51
    E N D    O F    F I L E                                                   99
/*
// DATA  FILEID=VSB008CARDIN
                                   VV       VV                                01
                                   VVV     VVV                                02
                                    VV     VV                                 03
                                    VVV   VVV                                 04
                                     VV   VV                                  05
                                     VVV VVV                                  06
                                      VV VV                                   07
                                      VVVVV                                   08
                                       VVV                                    09
                                       VVV                                    10
                                        V                                     11
                                                                              12
                                                                              13
                                     #######                                  14
                                     #######                                  15
                                                                              16
                                                                              17
                                     SSSSSSSS                                 21
                                    SSSSSSSSSS                                22
                                   SSS     SSS                                23
                                   SSS                                        24
                                   SSSSSSSSS                                  25
                                    SSSSSSSSS                                 26
                                           SSS                                27
                                           SSS                                28
                                   SSS     SSS                                29
                                   SSSSSSSSSS                                 30
                                    SSSSSSSS                                  31
                                                                              32
                                                                              33
                                     #######                                  34
                                     #######                                  35
                                                                              36
                                                                              37
                                   BBBBBBBBBB                                 41
                                   BBBBBBBBBBB                                42
                                   BBB      BBB                               43
                                   BBB      BBB                               44
                                   BBBBBBBBBBB                                45
                                   BBBBBBBBBB                                 46
                                   BBB     BBB                                47
                                   BBB      BBB                               48
                                   BBB      BBB                               49
                                   BBBBBBBBBBBB                               50
                                   BBBBBBBBBBB                                51
    E N D    O F    F I L E                                                   99
/*
// DATA  FILEID=VSB012INPUT1
       VV       VV                   SSSSSSSS                  BBBBBBBBBB
       VVV     VVV                  SSSSSSSSSS                 BBBBBBBBBBB
        VV     VV                  SSS     SSS                 BBB      BBB
        VVV   VVV                  SSS                         BBB      BBB
         VV   VV                   SSSSSSSSS                   BBBBBBBBBBB
         VVV VVV        #####       SSSSSSSSS       #####      BBBBBBBBBB
          VV VV         #####              SSS      #####      BBB     BBB
          VVVVV                            SSS                 BBB      BBB
           VVV                     SSS     SSS                 BBB      BBB
           VVV                     SSSSSSSSSS                  BBBBBBBBBBBB
            V                       SSSSSSSS                   BBBBBBBBBBB
/*
// DATA  FILEID=VSB012INPUT1
       VV       VV                   SSSSSSSS                  BBBBBBBBBB
       VVV     VVV                  SSSSSSSSSS                 BBBBBBBBBBB
        VV     VV                  SSS     SSS                 BBB      BBB
        VVV   VVV                  SSS                         BBB      BBB
         VV   VV                   SSSSSSSSS                   BBBBBBBBBBB
         VVV VVV        #####       SSSSSSSSS       #####      BBBBBBBBBB
          VV VV         #####              SSS      #####      BBB     BBB
          VVVVV                            SSS                 BBB      BBB
           VVV                     SSS     SSS                 BBB      BBB
           VVV                     SSSSSSSSSS                  BBBBBBBBBBBB
            V                       SSSSSSSS                   BBBBBBBBBBB
/*
// DATA  FILEID=VSB014READ171
         REST T 008
         RLMT 00  123456                14  VTOCUPDT
         RLMT 00  123456                14  SYSFILE
         RLMT 00  123456                14  SCRATCH1
         RLMT 00  123456                14  SCRATCH2
         RLMT 00  123456                14  SCRATCH3
         RLMT 00  123456                14  SCRATCH4
EE       END
/*
// DATA  FILEID=VSB015READ171
/        JOB   NCOSVSB
/        EXEC  R410
/        PARAM 0000,1A,SCRATCH1000000000100000000
/        DATA  C
01010H  E   24        132    RU12                                         VSB015
01020F***  THIS PROGRAM CREATES A SEQUENTIAL FILE                ****     VSB015
01030F***                                                        ****     VSB015
01040FCARD    IPE F  80  80            READER      8                      VSB015
01050FPRINT   O   F                    PRINT63    10                      VSB015
01060FFILEFOURO   F 160  90            DISC       01S                     VSB015
01070C   10                GOTO TAG1                                      VSB015
01080C                     MOVE 3333333   NUM1    70                      VSB015
01090C                     MOVE 5555555   NUM2    70                      VSB015
01100C                     MOVE 0         COUNT   30                      VSB015
01110C                     MOVE 0         RANKEY  40                      VSB015
01120C                     SETON                     10                   VSB015
01130C           TAG1      TAG                                            VSB015
01140C           NUM1      COMP 999999               20                   VSB015
01150C  N20      NUM1      ADD  777777    NUM1                            VSB015
01160C           NUM2      COMP 999999               30                   VSB015
01170C  N30      NUM2      ADD  777777    NUM2                            VSB015
01180C           NUM1      MULT NUM2      NUM3   140                      VSB015
01190C                     MOVE NUM3      TEMP    90                      VSB015
01200C                     MOVELTEMP      RAN1    50                      VSB015
02010C                     MOVE NUM3      NUM2                            VSB015
02020C                     MOVELNUM3      NUM1                            VSB015
02030C           COUNT     ADD  1         COUNT                           VSB015
02040C           RANKEY    ADD  2         RANKEY                          VSB015
02050C           COUNT     COMP TOTAL                  40                 VSB015
02060C   40                GOTO TAG2                                      VSB015
02070CL0         TAG2      TAG                                            VSB015
02080ICARD    AA  01                                                      VSB015
02090I                                        1   40TOTAL                 VSB015
02100I                                       17  80 DATA                  VSB015
02110OPRINT   H  207   1P                                                 VSB015
02120O                                   24 'LISTING OF RECORDS CREAT'    VSB015
02130O                                   48 'ED IN SEQUENTIAL FILE   '    VSB015
02140O                                   90 'SORT FIELD'                  VSB015
02150OPRINT   T  1     01 40                                              VSB015
02160O                         RANKEYZ    4                               VSB015
02170O                                   28 '****FILEFOUR  SEQUENTIAL'    VSB015
02180O                                   52 '                        '    VSB015
02190O                                   76 '                        '    VSB015
02200O                                   85 '*       *'                   VSB015
03010O                         RAN1  Z   90                               VSB015
03020OPRINT   T  2     LR                                                 VSB015
03030O                                   24 'E N D  O F  F I L E  C '     VSB015
03040O                                   48 'R E A T I O N           '    VSB015
03050OFILEFOURT        01 40                                              VSB015
03060O                         RANKEYZ    4                               VSB015
03070O                                   28 '****FILEFOUR  SEQUENTIAL'    VSB015
03080O                                   52 '                        '    VSB015
03090O                                   76 '                        '    VSB015
03100O                                   85 '*       *'                   VSB015
03110O                         RAN1  Z   90                               VSB015
/*
// DATA  FILEID=VSB018READ171
// JOB RPG
// DATE 74117
// ASSGN SYSIPT,X'100',R4
// ASSGN SYS000,X'801',D3
// VOL SYS000,WORK1
// DLAB  'DPS WORK FILE 1                             1111111',        C
               0001,68089,68089
// XTENT 1,000,0167000,0170000,'111111',SYS000
// EXEC
     H     012      JB120 3202 D                                          VSEM21
     F*            CREATION FICHIER AGENT
     F*
     FCARTES  IP AF  80  80            READ01
     F*
     FAGENT   O   F 270  45  4KI     3 DISK11FSYS001S             202
     ICARTES  NS  01   1 C0   2 C2
     I                                        3   6 NU
     I                                        9  23 NOM
     I                                       24  42 VILLE
     I                                       43  470CODPOS
     OAGENT   D        01
     O                                    2 '02'
     O                         NU         6
     O                         NOM       23
     O                         VILLE     42
     O                         CODPOS    45P
/*
// PAUSE
/*
// JOB   TEST
// DATE  72001
// LOG   CREATION DU FICHIER AGENT
// ASSGN SYSIPT,X'100',R4
// ASSGN SYS001,X'801',D3
// VOL   SYS001,AGENT
// DLAB  'AGENT                                       1111111',        C
               0001,72001,72001
// XTENT 1,001,0159000,0159009,'111111',SYS001
// XTENT 4,002,0160001,0160009,'111111',SYS001
// EXEC LOADER,R
02420900M BESDEL       VINCENNES          94300
02421100MME BONNAUD    PARIS              75018
02421900CHARP. BERNAGAUPARIS              75017
02422300MME CIOCCOLANTIPARIS              75018
02423000MELLE DUVAL    PARIS              75007
02423600M FONTANILLAS  VIROFLAY           78220
02424000MME GOUTTENOIREECULLY             69130
02426000M DIDIER MERTENPARIS              75015
02426600MME MOREL      PARIS              75012
02429400P VERRIER      ST GERMAIN EN LAYE 78100
02429500M VIGLIONE     MARSEILLE          13008
02460000AFF.SANS AGENT
02460400M.AUSSET       PARIS              75013
02461100BOURBON        ST ETIENNE         42000
02461300B. E. GRAPHIQUEPARIS              75015
02461700C.G.E.         PARIS              75008
02461800C.I.P.         THIAIS             94320
02461900CIPAS          BAR LE DUC         55000
024622  C.CLAUDE       ST MAURICE         94000
02464000GARCIN         MARSEILLE          13008
02464200GAZEAU
024645  GUIGUI AGENT CO
02464800M.JACQUEMIN    PARIS              75020
02465300M.LEYRIT       RIOM               63200
02465600M.LORRACH      MULHOUSE           68062
02466000M.MAEGHT       LILLE              59000
02466200M.MAGALOFF     PARIS              75016
02466400MME.MAYRARGUE  PARIS              75016
02466600M.BANGA        DOUALA
024670  PUBLIGRIF      THIAIS             94380
02467300PICOT          VILLEMONBLE        93250
02467500PUBLITEC       PARIS              75008
024680  ROGEZ
02469900RECTIFICATIONS
/*
/*
// PAUSE
/*
// JOB DSKPRT                     PRINT  DISC 360 / 20
// DATE 74082
// ASSGN SYSIPT,X'801',D3
// VOL SYSIPT,UIN
// DLAB  'AGENT                                       1111111',        C
               0001,72001,72001
// XTENT 1,001,0159000,0159009,'111111',SYSIPT
// EXEC
// UDP TD,FF,A=(45,270),B=(120),OX,S1,PY,R1
// END
// PAUSE
/*
// DATA  FILEID=VSB022CARDI
                                   VV       VV                                01
                                   VVV     VVV                                02
                                    VV     VV                                 03
                                    VVV   VVV                                 04
                                     VV   VV                                  05
                                     VVV VVV                                  06
                                      VV VV                                   07
                                      VVVVV                                   08
                                       VVV                                    09
                                       VVV                                    10
                                        V                                     11
                                                                              12
                                                                              13
                                     #######                                  14
                                     #######                                  15
                                                                              16
                                                                              17
                                     SSSSSSSS                                 21
                                    SSSSSSSSSS                                22
                                   SSS     SSS                                23
                                   SSS                                        24
                                   SSSSSSSSS                                  25
                                    SSSSSSSSS                                 26
                                           SSS                                27
                                           SSS                                28
                                   SSS     SSS                                29
                                   SSSSSSSSSS                                 30
                                    SSSSSSSS                                  31
                                                                              32
                                                                              33
                                     #######                                  34
                                     #######                                  35
                                                                              36
                                                                              37
                                   BBBBBBBBBB                                 41
                                   BBBBBBBBBBB                                42
                                   BBB      BBB                               43
                                   BBB      BBB                               44
                                   BBBBBBBBBBB                                45
                                   BBBBBBBBBB                                 46
                                   BBB     BBB                                47
                                   BBB      BBB                               48
                                   BBB      BBB                               49
                                   BBBBBBBBBBBB                               50
                                   BBBBBBBBBBB                                51
/*
