Re: INFDS Sy 36 PSDStr... Issue -- RPG400-L

In the OCL, to get workstation into the Local Data Area positions 1 & 2
// LOCAL OFFSET-1,DATA-'?WS?'
In RPGII - i can send you a sample roll screen pgm in rpgii
I prefer indexed files, but you can modify to rrn
Is this M36 (SSP guest os) or S36EE (native machine w/s36 execution
environ)?
jim

----- Original Message -----
From: "Scott Klement" <klemscot@klements.com>
To: <rpg400-l@midrange.com>
Sent: Thursday, September 20, 2001 10:47 PM
Subject: RE: INFDS Sy 36 PSDStr... Issue


>
> Actually, I think it's ?WS?
>
>
> On Thu, 20 Sep 2001, Jim Langston wrote:
>
> > Workstation ID is %WS% or %WSID% in OCL (I think %WS%).  Whether or
> > not that helps you is another story.
> >
> > Okay, you are required, damanded, edicted to write this is S36.  Okay,
> > but what is to say you can't use modern programming techniques?  The
> > only restriction I would see is if you are creating an export file, that
> > is, one you need to send to another computer to import.
> >
> > Otherwise, what is limiting you to creating only one file and using
> > record type selection, and not creating 2 separate files and using
> > matching records?  It would still be S36 code.
> >
> > Regards,
> >
> > Jim Langston
> >
> > -----Original Message-----
> > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> > Behalf Of Kmh0421@aol.com
> > Sent: Thursday, September 20, 2001 2:07 PM
> > To: RPG400-L@midrange.com
> > Subject: Fwd: INFDS Sy 36 PSDStr... Issue
> >
> >
> > --
> > --
> > [ Picked text/plain from multipart/alternative ]
> > Ok, my real problem is this.... I am NOT a 36 pro.... need help!!
> > As you may remember, I am rewriting old icky stuff , still, into newer
old
> > icky stuff per client requirement, demand, edict, etc. Anyway, what I
have
> > to
> > do is this:
> > I am creating transactions in a 64 character flat file. Some of the
records
> > are Batch Hdr records (i.e. Positions 1-4 are 'B', '1234', etc.etc.) and
> > some
> > are detail records (i.e. Positions 1-16 are 'A', 'TAG123', 'PART123456',
> > xxxx
> > etc etc etc....). I have the last 13 positions of the record to hold
> > whatever
> > I wish. I need to be able to retrieve the records later in the program
for
> > 'REVIEW'. On one screen, I need to ROLL through the Header records and
allow
> > the user to modify them, on another screen, I need to ROLL through the
> > Detail
> > records for the associated Header record to allow modification of them.
The
> > records in the transaction file will be written by different
workstations. I
> > am only supposed to show the records written by the workstation the user
is
> > using. The program must run in 36 mode, and later will be 'converted'
(by a
> > package) to a 400 program.
> > Soooooo, I am thinking I must use my 13 positions to store Batch (4)
Batch
> > Start RRN (4) Prev Dtl Rcd RRN (4) and a 1? position WSID.
> > I need to get the RRN of the record - how? the WSID of the record - how?
> > Any help is most GREATLY appreciated.
> > Kathie
> > --
> > From: Kmh0421@aol.com
> > Full-name: Kmh0421
> > Date: Thu, 20 Sep 2001 13:10:52 EDT
> > Subject: Fwd: INFDS for System 36....and Program Status Data Structure
> > To: RPG400-L@midrange.com
> > X-Plaintext:  Picked text/plain from multipart/alternative
> >
> > --
> > --
> > [ Picked text/plain from multipart/alternative ]
> > Does anyone have the structure of the INFDS, and the Program Status Data
> > Structure for the System 36? In particular, I am looking for the
> > workstation,
> > without using CLP program, on the 36.....
> > Thanks again;
> > Kathie
> > --
> > From: Kmh0421@aol.com
> > Subject: INFDS for System 36
> > To: rpg400-l@midrange.com
> > Sender: rpg400-l-admin@midrange.com
> > Precedence: bulk
> > Reply-To: rpg400-l@midrange.com
> > Date: Thu, 20 Sep 2001 12:36:42 EDT
> >
> > --
> > [ Picked text/plain from multipart/alternative ]
> > Hi... I can't get into the bookmanager right now. Does anyone have the
> > positions for the system 36 infds?
> > Thanks
> > Kathie
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>