H CopyRight('www.agnethe.dk (c) - 2008')
     H DatEdit(*YMD.)
     H Option( *SrcStmt: *NoDebugIO)
     H DECEDIT(*JOBRUN)

      //*=============================================================
      //*
      //*                       ‚MC PRESS ONLINE
      //*
      //* Function  :‚Let's bake pies and donuts - Create some test data
      //*
      //* ------------------------------------------------------------
      //* Created:
      //* Programmer:‚Jan Jorgensen
      //* Date  . . :‚2008-12-29
      //*
      //* How to compile:
      //*
      //* CRTBNDRPG PGM(yourlib/FORM015CRT) SRCFILE(yourlib/QRPGSRC)
      //* SRCMBR(FORM015CRT) REPLACE(*YES)
      //*
      //*=============================================================

      * Graph data
     FFORM015DTAIF A E           K DISK

      //==============================================================
      //‚Main Loop
      //==============================================================

      /free

         // Salesman 1

           SALESMAN = 1;
           YEAR     = 2004;
           VALUE    = 100;
           Write RDATA;

           SALESMAN = 1;
           YEAR     = 2005;
           VALUE    = 120;
           Write RDATA;

           SALESMAN = 1;
           YEAR     = 2007;
           VALUE    = 500;
           Write RDATA;

           SALESMAN = 1;
           YEAR     = 2008;
           VALUE    = 610;
           Write RDATA;

         // Salesman 2

           SALESMAN = 2;
           YEAR     = 2004;
           VALUE    = 513;
           Write RDATA;

           SALESMAN = 2;
           YEAR     = 2005;
           VALUE    = 610;
           Write RDATA;

           SALESMAN = 2;
           YEAR     = 2006;
           VALUE    = 1500;
           Write RDATA;

           SALESMAN = 2;
           YEAR     = 2008;
           VALUE    = 3610;
           Write RDATA;

           *inLR = *ON;

      /end-free