71 lines
4.3 KiB
HTML
71 lines
4.3 KiB
HTML
<?xml version="1.0" encoding="utf-8"?>
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-us">
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
|
<meta name="dc.language" scheme="rfc1766" content="en-us" />
|
|
<!-- All rights reserved. Licensed Materials Property of IBM -->
|
|
<!-- US Government Users Restricted Rights -->
|
|
<!-- Use, duplication or disclosure restricted by -->
|
|
<!-- GSA ADP Schedule Contract with IBM Corp. -->
|
|
<meta name="dc.date" scheme="iso8601" content="2005-09-06" />
|
|
<meta name="copyright" content="(C) Copyright IBM Corporation 1998, 2006" />
|
|
<meta name="security" content="public" />
|
|
<meta name="Robots" content="index,follow"/>
|
|
<meta http-equiv="PICS-Label" content='(PICS-1.1 "http://www.icra.org/ratingsv02.html" l gen true r (cz 1 lz 1 nz 1 oz 1 vz 1) "http://www.rsac.org/ratingsv01.html" l gen true r (n 0 s 0 v 0 l 0) "http://www.classify.org/safesurf/" l gen true r (SS~~000 1))' />
|
|
<title>RPG positioning source code</title>
|
|
<link rel="stylesheet" type="text/css" href="ibmidwb.css" />
|
|
<link rel="stylesheet" type="text/css" href="ic.css" />
|
|
</head>
|
|
<body>
|
|
<a id="Top_Of_Page" name="Top_Of_Page"></a><!-- Java sync-link -->
|
|
<script language = "Javascript" src = "../rzahg/synch.js" type="text/javascript"></script>
|
|
|
|
|
|
<a name="rzaluuseddsrpgsource"></a>
|
|
<h4 id="rzaluuseddsrpgsource">RPG positioning source code</h4>
|
|
<a name="wq253"></a>
|
|
<div class="notetitle" id="wq253">Note:</div>
|
|
<div class="notebody">Read the <a href="rzalucodedisclaimer.htm#rzalucodedisclaimer">Code disclaimer information</a> for important
|
|
legal information.</div>
|
|
<pre class="xmp">SEQUENCE IND DO LAST PAGE PROGRAM
|
|
NUMBER *...1....+....2....+....3....+....4....+....5....+....6....+....7...*
|
|
USE NUM UPDATE LINE ID
|
|
S o u r c e L i s t i n g
|
|
H *****
|
|
100 FVENDORS IF E K DISK 10/24/91
|
|
RECORD FORMAT(S): LIBRARY SGAFP FILE VENDORS.
|
|
EXTERNAL FORMAT VNDMSTR RPG NAME VNDMSTR
|
|
200 FLABELS O E PRINTER 08/25/91
|
|
RECORD FORMAT(S): LIBRARY SGAFP FILE LABELS.
|
|
EXTERNAL FORMAT LABEL RPG NAME LABEL
|
|
A000000 INPUT FIELDS FOR RECORD VNDMSTR FILE VENDORS FORMAT VNDMSTR.
|
|
A000000 VENDMAST DB FORMAT
|
|
A000001 P 1 30VNDNBR VENDOR NUMBER
|
|
A000002 4 28 NAME NAME
|
|
A000003 29 53 ADDR1 ADDRESS LINE 1
|
|
A000004 54 68 CITY CITY
|
|
A000005 69 70 STATE STATE
|
|
A000006 P 71 730ZIPCD ZIP CODE
|
|
A000007 P 74 750VNDCLS VENDOR CLASS
|
|
A000008 76 76 VNDSTS A=ACTIVE, D=DELETE, S=SUSPEND
|
|
A000009 P 77 812BALOWE BALANCE OWED
|
|
A000010 82 82 SRVRTG G=GOOD, A=AVERAGE, B=BAD, P=PREFERRED
|
|
300 C READ VENDORS 50 3 10/24/91
|
|
400 C *IN50 DOWNE*ON B001 08/25/91
|
|
500 C WRITELABEL 001 08/25/91
|
|
600 C READ VENDORS 50 3 001 10/24/91
|
|
700 C ENDDO E001 08/25/91
|
|
800 C SETON LR 1 08/25/91
|
|
B000000 OUTPUT FIELDS FOR RECORD LABEL FILE LABELS FORMAT LABEL.
|
|
B000001 NAME 25 CHAR 25
|
|
B000002 ADDR1 50 CHAR 25
|
|
B000003 CITY 65 CHAR 15
|
|
B000004 STATE 67 CHAR 2
|
|
B000005 ZIPCD 72 ZONE 5,0
|
|
* * * * * E N D O F S O U R C E * * * * *</pre>
|
|
<a id="Bot_Of_Page" name="Bot_Of_Page"></a>
|
|
</body>
|
|
</html>
|