
[ Prototype section ]
.____________________________________________________________________________________

[ Define open parameters prototype 1 ]

    file normal = yes
    file read only = no
    file hidden = no
    file system = no
    file archived = yes

    file open flags = open | create
    file access mode = read write
    file share mode = deny none

    cache = yes
    DASD = no
    fail on error = no
    inheritance = no
    locality = no
    random = yes
    random sequential = no
    sequential = no
    write through = no

    file size = 0
    record size = 65000

[ Define open parameters prototype 3 ]

    file normal = yes
    file read only = no
    file hidden = no
    file system = no
    file archived = yes

    file open flags = open | create
    file access mode = read write
    file share mode = deny read write

    cache = yes
    DASD = no
    fail on error = no
    inheritance = no
    locality = no
    random = yes
    random sequential = no
    sequential = no
    write through = no

    file size = 0
    record size = 65000

[ Execution section ]
.____________________________________________________________________________________

[ Define process 11 ]

    buffer space = 96K

  [ Define file 1 as DRIVE\DIRECTORY\ctest2.data.1 ]

  [ Define timer 11 ]

    Sleep 5 sec
    Start timer 11
      {
	 Delete file 1

         {
	    Create records using:
		pattern = 1
		record size = 230

		Read timer 11
		Type comment
         -- Create Phase 1 ( p = 11, r/s = 230, c = 4x25 ) --

	    Create record 1
            {
                Open file 1

                Change file pointer for file 1 using:
                    off point = end
                    offset = 0

                {
                    Write file 1 using:
                        record size = 230

                    Change file pointer for file 1 using:
                        off point = current
                        offset = -230
                    Read file 1 using:
                        record size = 230

                    Collate records
                    Create next record
                }

                Repeat 25 times

                Close file 1
            }

            Repeat 4 times

	    Create records using:
		pattern = 11
		record size = 70

            Read timer 11
            Type comment
         -- Create Phase 1 ( p = 11, r/s = 70, c = 4x25 ) --

	    Create record 1
            {
                Open file 1

                Change file pointer for file 1 using:
                    off point = end
                    offset = 0

                {
                    Write file 1 using:
                        record size = 70

                    Change file pointer for file 1 using:
                        off point = current
                        offset = -70
                    Read file 1 using:
                        record size = 70

                    Collate records
                    Create next record
                }

                Repeat 25 times

                Close file 1
            }

            Repeat 4 times

	    Create records using:
		pattern = 2
		record size = 90

	    Read timer 11
            Type comment
	 -- Create Phase 1 ( p = 11, r/s = 90, c = 4x25 ) --

	    Create record 1
            {
                Open file 1

                Change file pointer for file 1 using:
                    off point = end
                    offset = 0

                {
                    Write file 1 using:
			record size = 90

                    Change file pointer for file 1 using:
                        off point = current
			offset = -90
		    Read file 1 using:
			record size = 90

                    Collate records
                    Create next record
                }

                Repeat 25 times

                Close file 1
            }

            Repeat 4 times
	    Create records using:
		pattern = 12
		record size = 130

	    Read timer 11
            Type comment
         -- Create Phase 1 ( p = 11, r/s = 130, c = 4x25 ) --

	    Create record 1
            {
                Open file 1

                Change file pointer for file 1 using:
                    off point = end
                    offset = 0

                {
                    Write file 1 using:
                        record size = 130

                    Change file pointer for file 1 using:
                        off point = current
                        offset = -130
		    Read file 1 using:
			record size = 130

                    Collate records
                    Create next record
                }

                Repeat 25 times

                Close file 1
            }

            Repeat 4 times
         }

	 Repeat 3 times

	 ...............
	 Open file 1

	 {
	    Create records using:
		pattern = 1
		record size = 230


		Type comment
	 -- Collate Phase 1 ( p = 11, r/s = 230, c = 4x25 ) --

	    Create record 1
	    {

                {
		    Read file 1 using:
                        record size = 230

                    Collate records
                    Create next record
                }

                Repeat 25 times
	    }

            Repeat 4 times

	    Create records using:
		pattern = 11
		record size = 70

	    Type comment
	 -- Collate Phase 1 ( p = 11, r/s = 70, c = 4x25 ) --

	    Create record 1
            {
		{
		    Read file 1 using:
                        record size = 70

                    Collate records
                    Create next record
                }

                Repeat 25 times
	    }

            Repeat 4 times

	    Create records using:
		pattern = 2
		record size = 90

	    Type comment
	 -- Collate Phase 1 ( p = 11, r/s = 90, c = 4x25 ) --

	    Create record 1
            {

                {
		    Read file 1 using:
			record size = 90

                    Collate records
                    Create next record
                }

		Repeat 25 times
            }

            Repeat 4 times
	    Create records using:
		pattern = 12
		record size = 130

            Type comment
	 -- Collate Phase 1 ( p = 11, r/s = 130, c = 4x25 ) --

	    Create record 1
            {
		{
		    Read file 1 using:
			record size = 130

                    Collate records
                    Create next record
                }

                Repeat 25 times
	    }

            Repeat 4 times
         }

	 Repeat 3 times

	 Close file 1
      }

    Repeat for 144 hours
.____________________________________________________________________________________

[ Define process 12 ]

    buffer space = 96K

  [ Define file 2 as DRIVE\DIRECTORY\ctest2.data.2 ]

  [ Define timer 12 ]

    Sleep 5 sec
    Start timer 12
      {
	 Delete file 2

         {
	    Create records using:
		pattern = 3
		record size = 23

		Read timer 12
		Type comment
	 -- Create Phase 1 ( p = 12, r/s = 23, c = 4x25 ) --

	    Create record 1
            {
		Open file 2

		Change file pointer for file 2 using:
                    off point = end
                    offset = 0

                {
		    Write file 2 using:
			record size = 23

		    Change file pointer for file 2 using:
                        off point = current
			offset = -23
		    Read file 2 using:
			record size = 23

                    Collate records
                    Create next record
                }

                Repeat 25 times

		Close file 2
            }

            Repeat 4 times

	    Create records using:
		pattern = 13
		record size = 35

	    Read timer 12
            Type comment
	 -- Create Phase 1 ( p = 12, r/s = 35, c = 4x25 ) --

	    Create record 1
            {
		Open file 2

		Change file pointer for file 2 using:
                    off point = end
                    offset = 0

                {
		    Write file 2 using:
			record size = 35

		    Change file pointer for file 2 using:
                        off point = current
			offset = -35
		    Read file 2 using:
			record size = 35

                    Collate records
                    Create next record
                }

                Repeat 25 times

		Close file 2
            }

            Repeat 4 times

	    Create records using:
		pattern = 4
		record size = 29

	    Read timer 12
            Type comment
	 -- Create Phase 1 ( p = 12, r/s = 29, c = 4x25 ) --

	    Create record 1
            {
		Open file 2

		Change file pointer for file 2 using:
                    off point = end
                    offset = 0

                {
		    Write file 2 using:
			record size = 29

		    Change file pointer for file 2 using:
                        off point = current
			offset = -29
		    Read file 2 using:
			record size = 29

                    Collate records
                    Create next record
                }

                Repeat 25 times

		Close file 2
            }

            Repeat 4 times
	    Create records using:
		pattern = 14
		record size = 13

	    Read timer 12
            Type comment
	 -- Create Phase 1 ( p = 12, r/s = 13, c = 4x25 ) --

	    Create record 1
            {
		Open file 2

		Change file pointer for file 2 using:
                    off point = end
                    offset = 0

                {
		    Write file 2 using:
			record size = 13

		    Change file pointer for file 2 using:
                        off point = current
			offset = -13
		    Read file 2 using:
			record size = 13

                    Collate records
                    Create next record
                }

                Repeat 25 times

		Close file 2
            }

            Repeat 4 times
         }

	 Repeat 8 times

	 .................
	 Open file 2

	 {
	    Create records using:
		pattern = 3
		record size = 23

		Type comment
	 -- Collate Phase 1 ( p = 12, r/s = 23, c = 4x25 ) --

	    Create record 1
            {
		{
		    Read file 2 using:
			record size = 23

                    Collate records
                    Create next record
                }

		Repeat 25 times
            }

            Repeat 4 times

	    Create records using:
		pattern = 13
		record size = 35

	    Type comment
	 -- Collate Phase 1 ( p = 12, r/s = 35, c = 4x25 ) --

	    Create record 1
            {
		{
		    Read file 2 using:
			record size = 35

                    Collate records
                    Create next record
                }

		Repeat 25 times
            }

            Repeat 4 times

	    Create records using:
		pattern = 4
		record size = 29

	    Type comment
	 -- Collate Phase 1 ( p = 12, r/s = 29, c = 4x25 ) --

	    Create record 1
            {
		{
		    Read file 2 using:
			record size = 29

                    Collate records
                    Create next record
                }

                Repeat 25 times
	    }

            Repeat 4 times
	    Create records using:
		pattern = 14
		record size = 13

	    Type comment
	 -- Collate Phase 1 ( p = 12, r/s = 13, c = 4x25 ) --

	    Create record 1
            {
		{
		    Read file 2 using:
			record size = 13

                    Collate records
                    Create next record
                }

                Repeat 25 times
	    }

            Repeat 4 times
         }

	 Repeat 8 times

	 Close file 2
      }

    Repeat for 144 hours
.____________________________________________________________________________________

[ Define process 13 ]

    buffer space = 96K

  [ Define file 3 as DRIVE\DIRECTORY\ctest2.data.3 ]

  [ Define timer 13 ]

    Sleep 5 sec
    Start timer 13
      {
	 Delete file 3

         {
	    Create records using:
		pattern = 5
		record size = 23

		Read timer 13
		Type comment
	 -- Create Phase 1 ( p = 13, r/s = 23, c = 4x25 ) --

	    Create record 1
            {
		Open file 3

		Change file pointer for file 3 using:
                    off point = end
                    offset = 0

                {
		    Write file 3 using:
			record size = 23

		    Change file pointer for file 3 using:
                        off point = current
			offset = -23
		    Read file 3 using:
			record size = 23

                    Collate records
                    Create next record
                }

                Repeat 25 times

		Close file 3
            }

            Repeat 4 times

	    Create records using:
		pattern = 15
		record size = 7

	    Read timer 13
            Type comment
	 -- Create Phase 1 ( p = 13, r/s = 7, c = 4x25 ) --

	    Create record 1
            {
		Open file 3

		Change file pointer for file 3 using:
                    off point = end
                    offset = 0

                {
		    Write file 3 using:
			record size = 7

		    Change file pointer for file 3 using:
                        off point = current
			offset = -7
		    Read file 3 using:
			record size = 7

                    Collate records
                    Create next record
                }

                Repeat 25 times

		Close file 3
            }

            Repeat 4 times

	    Create records using:
		pattern = 6
		record size = 9

	    Read timer 13
            Type comment
	 -- Create Phase 1 ( p = 13, r/s = 9, c = 4x25 ) --

	    Create record 1
            {
		Open file 3

		Change file pointer for file 3 using:
                    off point = end
                    offset = 0

                {
		    Write file 3 using:
			record size = 9

		    Change file pointer for file 3 using:
                        off point = current
			offset = -9
		    Read file 3 using:
			record size = 9

                    Collate records
                    Create next record
                }

                Repeat 25 times

		Close file 3
            }

            Repeat 4 times
	    Create records using:
		pattern = 16
		record size = 13

	    Read timer 13
            Type comment
	 -- Create Phase 1 ( p = 13, r/s = 13, c = 4x25 ) --

	    Create record 1
            {
		Open file 3

		Change file pointer for file 3 using:
                    off point = end
                    offset = 0

                {
		    Write file 3 using:
			record size = 13

		    Change file pointer for file 3 using:
                        off point = current
			offset = -13
		    Read file 3 using:
			record size = 13

                    Collate records
                    Create next record
                }

                Repeat 25 times

		Close file 3
            }

            Repeat 4 times
         }

	 Repeat 20 times

	 ......................

	 Open file 3

	 {
	    Create records using:
		pattern = 5
		record size = 23

		Type comment
	 -- Collate Phase 1 ( p = 13, r/s = 23, c = 4x25 ) --

	    Create record 1
            {
		{
		    Read file 3 using:
			record size = 23

                    Collate records
                    Create next record
                }

                Repeat 25 times
	    }

            Repeat 4 times

	    Create records using:
		pattern = 15
		record size = 7

	    Type comment
	 -- Collate Phase 1 ( p = 13, r/s = 7, c = 4x25 ) --

	    Create record 1
            {
		{
		    Read file 3 using:
			record size = 7

                    Collate records
                    Create next record
                }

                Repeat 25 times
	    }

            Repeat 4 times

	    Create records using:
		pattern = 6
		record size = 9

	    Type comment
	 -- Collate Phase 1 ( p = 13, r/s = 9, c = 4x25 ) --

	    Create record 1
            {
		{
		    Read file 3 using:
			record size = 9

                    Collate records
                    Create next record
                }

                Repeat 25 times
	    }

	    Repeat 4 times

	    Create records using:
		pattern = 16
		record size = 13

	    Type comment
	 -- Collate Phase 1 ( p = 13, r/s = 13, c = 4x25 ) --

	    Create record 1
            {
		{
		    Read file 3 using:
			record size = 13

                    Collate records
                    Create next record
                }

                Repeat 25 times
	    }

            Repeat 4 times
         }

	 Repeat 20 times

	 Close file 3
      }

    Repeat for 144 hours
.____________________________________________________________________________________
