Update Visual PL/B Course

KcsDev1982 · KcsDev1982 · commit db7a3e9b8277 · 2025-11-21T17:02:35.000-05:00
Update course for spelling and grammar issues
diff --git a/courses/plb_visual/LabExercises/sales/detail.inc b/courses/plb_visual/LabExercises/sales/detail.inc
@@ -10,6 +10,6 @@ DTLPRICE        FORM            7.2
 DTLDATA         VARLIST         DTLORD,DTLITEM,DTLDESC,DTLQTY,DTLPRICE
 .  
 DTLKEY          DIM             20
-DTLFILE         IFILE           NAME="DETAIL.ISI"
+DTLFILE         IFILE           NAME="ORDERDETAIL.ISI"
 .
 DTLTEXT         COLLECTION
diff --git a/courses/plb_visual/LabExercises/sales/detail.pls b/courses/plb_visual/LabExercises/sales/detail.pls
@@ -4,7 +4,7 @@
 .
 DtlOpen
                 TRAP            DtlPrep IF IO
-                OPEN            DTLFILE,"DETAIL.ISI"
+                OPEN            DTLFILE,"ORDERDETAIL.ISI"
                 TRAPCLR         IO
 *
 .Build a collection of the input objects
diff --git a/courses/plb_visual/LabExercises/sales/report.pls b/courses/plb_visual/LabExercises/sales/report.pls
@@ -16,7 +16,7 @@ REPORT
 .
 		OPEN	CUSTLIST
 		OPEN	ORDFILE,"ORDER.ISI"
-		OPEN	DTLFILE,"DETAIL.ISI"
+		OPEN	DTLFILE,"ORDERDETAIL.ISI"
 *
 .Open the printer
 
@@ -35,7 +35,8 @@ REPORT
 		IF			OVER
 		PACK		MESSAGE WITH "Unable to locate customer ",ORDCUST
 		ALERT		STOP,Message,Reply,"Error"
-		PRTCLOSE	P,ABORT
+		PRTCLOSE	P
+		RETURN
 		ENDIF
 *
 .Print the order line
diff --git a/courses/plb_visual/plbvisual.pdf b/courses/plb_visual/plbvisual.pdf

Original file line number	Diff line number	Diff line change
`@@ -10,6 +10,6 @@ DTLPRICE FORM 7.2`
`10`	`10`	`DTLDATA VARLIST DTLORD,DTLITEM,DTLDESC,DTLQTY,DTLPRICE`
`11`	`11`	`.`
`12`	`12`	`DTLKEY DIM 20`
`13`		`-DTLFILE IFILE NAME="DETAIL.ISI"`
	`13`	`+DTLFILE IFILE NAME="ORDERDETAIL.ISI"`
`14`	`14`	`.`
`15`	`15`	`DTLTEXT COLLECTION`
Original file line number	Diff line number	Diff line change
`@@ -4,7 +4,7 @@`
`4`	`4`	`.`
`5`	`5`	`DtlOpen`
`6`	`6`	`TRAP DtlPrep IF IO`
`7`		`- OPEN DTLFILE,"DETAIL.ISI"`
	`7`	`+ OPEN DTLFILE,"ORDERDETAIL.ISI"`
`8`	`8`	`TRAPCLR IO`
`9`	`9`	`*`
`10`	`10`	`.Build a collection of the input objects`
Original file line number	Diff line number	Diff line change
`@@ -16,7 +16,7 @@ REPORT`
`16`	`16`	`.`
`17`	`17`	`OPEN CUSTLIST`
`18`	`18`	`OPEN ORDFILE,"ORDER.ISI"`
`19`		`- OPEN DTLFILE,"DETAIL.ISI"`
	`19`	`+ OPEN DTLFILE,"ORDERDETAIL.ISI"`
`20`	`20`	`*`
`21`	`21`	`.Open the printer`
`22`	`22`
`@@ -35,7 +35,8 @@ REPORT`
`35`	`35`	`IF OVER`
`36`	`36`	`PACK MESSAGE WITH "Unable to locate customer ",ORDCUST`
`37`	`37`	`ALERT STOP,Message,Reply,"Error"`
`38`		`- PRTCLOSE P,ABORT`
	`38`	`+ PRTCLOSE P`
	`39`	`+ RETURN`
`39`	`40`	`ENDIF`
`40`	`41`	`*`
`41`	`42`	`.Print the order line`