Save 
Join IIUG
 for   
 

Informix News
18 Nov 13 - ZDNet - Top 20 mobile skills in demand... Read
09 Sep 13 - telecompaper - Shaspa and Tatung have shown a new smart home platform at Ifa in Berlin. Powered by the IBM Informix software... Read
06 Sep 13 - IBM data magazine - Mission Accomplished - Miami, Florida will be the backdrop for the 2014 IIUG Informix Conference... Read
01 Feb 13 - IBM Data Magazine - Are your database backups safe? Lester Knutsen (IBM Champion) writes about database back up safety using "archecker"... Read
14 Nov 12 - IBM - IBM's Big Data For Smart Grid Goes Live In Texas... Read
3 Oct 12 - The Financial - IBM and TransWorks Collaborate to Help Louisiana-Pacific Corporation Achieve Supply Chain Efficiency... Read
28 Aug 12 - techCLOUD9 - Splunk kicks up a SaaS Storm... Read
10 Aug 12 - businessCLOUD9 - Is this the other half of Cloud monitoring?... Read
3 Aug 12 - IBM data management - Supercharging the data warehouse while keeping costs down IBM Informix Warehouse Accelerator (IWA) delivers superior performance for in-memory analytics processing... Read
2 Aug 12 - channelbiz - Oninit Group launches Pay Per Pulse cloud-based service... Read
28 May 12 - Bloor - David Norfolk on the recent Informix benchmark "pretty impressive results"... Read
23 May 12 - DBTA - Informix Genero: A Way to Modernize Informix 4GL Applications... Read
9 Apr 12 - Mastering Data Management - Upping the Informix Ante: Advanced Data Tools... Read
22 Mar 12 - developerWorks - Optimizing Informix database access... Read
14 Mar 12 - BernieSpang.com - International Informix User Group set to meet in San Diego... Read
1 Mar 12 - IBM Data Management - IIUG Heads West for 2012 - Get ready for sun and sand in San Diego... Read
1 Mar 12 - IBM Data Management - Running Informix on Solid-State Drives.Speed Up Database Access... Read
26 Feb 12 - BernieSpan.com - Better results, lower cost for a broad set of new IBM clients and partners... Read
24 Feb 12 - developerWorks - Informix Warehouse Accelerator: Continuous Acceleration during Data Refresh... Read
6 Feb 12 - PRLOG - Informix port delivers unlimited database scalability for popular SaaS application ... Read
2 Feb 12 - developerWorks - Loading data with the IBM Informix TimeSeries Plug-in for Data Studio... Read
1 Feb 12 - developerWorks - 100 Tech Tips, #47: Log-in to Fix Central... Read
13 Jan 12 - MC Press online - Informix Dynamic Server Entices New Users with Free Production Edition ... Read
11 Jan 12 - Computerworld - Ecologic Analytics and Landis+Gyr -- Suitors Decide to Tie the Knot... Read
9 Jan 12 - planetIDS.com - DNS impact on Informix / Impacto do DNS no Informix... Read
8 Sep 11 - TMCnet.com - IBM Offers Database Solution to Enable Smart Meter Data Capture... Read
1 Aug 11 - IBM Data Management Magazine - IIUG user view: Happy 10th anniversary to IBM and Informix... Read
8 Jul 11 - Database Trends and Applications - Managing Time Series Data with Informix... Read
31 May 11 - Smart Grid - The meter data management pitfall utilities are overlooking... Read
27 May 11 - IBM Data Management Magazine - IIUG user view: Big data, big time ( Series data, warehouse acceleration, and 4GLs )... Read
16 May 11 - Business Wire - HiT Software Announces DBMoto for Enterprise Integration, Adds Informix. Log-based Change Data Capture... Read
21 Mar 11 - Yahoo! Finance - IBM and Cable&Wireless Worldwide Announce UK Smart Energy Cloud... Read
14 Mar 11 - MarketWatch - Fuzzy Logix and IBM Unveil In-Database Analytics for IBM Informix... Read
11 Mar 11 - InvestorPlace - It's Time to Give IBM Props: How many tech stocks are up 53% since the dot-com boom?... Read
9 Mar 11 - DBTA - Database Administration and the Goal of Diminishing Downtime... Read
2 Feb 11 - DBTAs - Informix 11.7 Flexible Grid Provides a Different Way of Looking at Database Servers... Read
27 Jan 11 - exactsolutions - Exact to Add Informix Support to Database Replay, SQL Monitoring Solutions... Read
25 Jan 11 - PR Newswire - Bank of China in the UK Works With IBM to Become a Smarter, Greener Bank... Read
12 Oct 10 - Database Trends and Applications - Informix 11.7: The Beginning of the Next Decade of IBM Informix... Read
20 Sep 10 - planetIDS.com - ITG analyst paper: Cost/Benefit case for IBM Informix as compared to Microsoft SQL Server... Read
20 Jul 10 - IBM Announcements - IBM Informix Choice Edition V11.50 helps deploy low-cost scalable and reliable solutions for Apple Macintosh and Microsoft Windows... Read
20 Jul 10 - IBM Announcements - Software withdrawal: Elite Support for Informix Ultimate-C Edition... Read
24 May 10 - eWeek Europe - IBM Supplies Database Tech For EU Smart Grid... Read
23 May 10 - SiliconIndia - IBM's smart metering system allows wise use of energy... Read
21 May 10 - CNET - IBM to help people monitor energy use... Read
20 May 10 - ebiz - IBM Teams With Hildebrand To Bring Smart Metering To Homes Across Britain... Read
19 May 10 - The New Blog Times - Misurare il consumo energetico: DEHEMS è pronto... Read
19 May 10 - ZDNet - IBM software in your home? Pact enables five-city smart meter pilot in Europe... Read
17 March 10 - ZDNet (blog) David Morgenstern - TCO: New research finds Macs in the enterprise easier, cheaper to manage than... Read
17 March 2010 - Virtualization Review - ...key components of Big Blue's platform to the commercial cloud such as its WebSphere suite of application ser vers and its DB2 and Informix databases... Read
10 February 2010 - The Wall Street Journal - International Business Machines is expanding an initiative to win over students and professors on its products. How do they lure the college crowd?... Read


End of Support Dates

IIUG on Facebook IIUG on Twitter

[ View Thread ] [ Post Response ] [ Return to Index ] [ Read Prev Msg ] [ Read Next Msg ]

Classics Forum

4gl Program - help needed

Posted By: LYNETTE OLIVIER
Date: Thursday, 14 October 2010, at 1:23 a.m.

I need some help,

I've written a small program that will allow user to enter delivery vehicle information against a sales order

1. i would like to change the program to allow the users to enter more than one sales order, and when all other info is entered to go and update all sales orders that was entered

2. i have a check if some of the fields are already filled with data - to ask for a password that needs to be entered for them to override the data, but when inputting the password you can see what is typed, how can i get it to show stars or stay blank even though you are typing the password for the other people not to see

I'm using informix 10 and it's on a suse linux version 9

this is the code:

{...SETUP GLOBAL VARIABLES...}
GLOBALS

DEFINE datestamp datetime year to day

DEFINE v_count integer

DEFINE VEH_REG CHAR(8)

DEFINE DRIVER CHAR(50)

DEFINE GATEPASS CHAR(10)

DEFINE timestamp datetime hour to second

DEFINE COMMENTS CHAR(60)

DEFINE SALES_NR CHAR(9)

DEFINE PASSWORD CHAR(5)

DEFINE PASS CHAR(5)
END GLOBALS

MAIN
{-------------MAIN program routing----------------}

DEFINE so_rec

RECORD

order_no char(10),

vehicle_reference char(10),

appearance char(60),

shipno char(10),

shipper_code1 char(10),

shipper_code2 char(10),

shipping_text char(60)

END RECORD

{.............ENTER DETAILS FOR SALES ORDER.......................................}
LET PASS ="WERT1"
WHILE TRUE
PROMPT "Enter Sales order number :" for SALES_NR
IF SALES_NR is NULL THEN
EXIT WHILE
END IF

PROMPT "Enter Vehicle Registration :" for VEH_REG
IF VEH_REG IS NULL THEN
DISPLAY "VEHICLE REGISTRATION MAY NOT BE LEFT BLANK"

PROMPT "Enter Vehicle Registration :" for VEH_REG
END IF
select
vehicle_reference
into so_rec.vehicle_reference
from opheadm
where opheadm.order_no = SALES_NR

IF so_rec.vehicle_reference IS NOT NULL THEN

DISPLAY "FIELD ALREADY FILLED IN TO OVERWRITE ENTER PASSWORD"

PROMPT "ENTER PASSWORD :" FOR PASSWORD

IF PASSWORD IS NULL THEN

EXIT WHILE

END IF

IF PASSWORD <> PASS THEN

DISPLAY "WRONG PASSWORD"

SLEEP 2

PROMPT "ENTER PASSWORD :" FOR PASSWORD

IF PASSWORD <> PASS THEN

DISPLAY "WRONG PASSWORD"

EXIT WHILE

END IF

END IF
END IF

PROMPT "Enter Driver Name :" for DRIVER
IF DRIVER IS NULL THEN
DISPLAY "DRIVER NAME MAY NOT BE LEFT BLANK"

PROMPT "Enter Driver Name :" for DRIVER
END IF
PROMPT "Enter Gate Pass :" for GATEPASS
IF GATEPASS IS NULL THEN
DISPLAY "GATEPASS MAY NOT BE LEFT BLANK"
PROMPT "Enter Gate Pass :" for GATEPASS
END IF
PROMPT "Enter Comments :" for COMMENTS

{........SELECT SALES ORDER TO UPDATE FIELDS..................................}

Select

order_no,

vehicle_reference,

appearance,

shipno,

shipper_code1,

shipper_code2,

shipping_text
from opheadm
where opheadm.order_no = SALES_NR
into temp tmp1

{....Test for NULL records.... i.e No data selected ......}
select

count(*)
into v_count
from tmp1

IF v_count = 0 THEN

DISPLAY "You Goose! No record Found"

sleep 5
END IF

DECLARE report_curs CURSOR FOR

select * from tmp1

FOREACH report_curs INTO so_rec.*

let so_rec.vehicle_reference = VEH_REG
let so_rec.appearance = DRIVER
let so_rec.shipno = GATEPASS
let so_rec.shipping_text = COMMENTS
let datestamp = current
let timestamp = current

display datestamp
display timestamp

let so_rec.shipper_code1 = datestamp
let so_rec.shipper_code2 = timestamp

update opheadm
set vehicle_reference = so_rec.vehicle_reference,

appearance = so_rec.appearance,

shipno = so_rec.shipno,

shipper_code1 = so_rec.shipper_code1,

shipper_code2 = so_rec.shipper_code2,

shipping_text = so_rec.shipping_text
where opheadm.order_no = so_rec.order_no

END FOREACH
drop table tmp1 ;
END WHILE
END MAIN

Messages In This Thread

[ View Thread ] [ Post Response ] [ Return to Index ] [ Read Prev Msg ] [ Read Next Msg ]

Classics Forum is maintained by Administrator with WebBBS 5.12.