1. ZPL II, ZBI 2, Set-Get-Do, Mirror, WML Programming Guide
  2. ZBI Commands
  3. File System
  4. Runtime Access
  • ZPL II, ZBI 2, Set-Get-Do, Mirror, WML Programming Guide
Runtime Access

Runtime Access

The following example is a method to store runtime data in the printer memory. The file system in the printer is limited to writing one file at a time. Since only one component of the printer can have write access to the file system, the ZPL parser is the component with this access. For ZBI to use the ZPL parser as a gateway into printer memory, the ZPL comment command (
^FX
) is used.

Example

AUTONUM 1,1 
REM ******* TEST FOR SUBROUTINES **********************  
LET ZPLPORT = 1 OPEN #ZPLPORT: NAME "ZPL" 
LET SIZE = 5 
LET FILENAME$ = "R:TESTSYS.ZPL" 
DECLARE STRING DATAIN$(SIZE) 
LET DATAIN$(1) = "ONE" 
LET DATAIN$(2) = "TWO" 
LET DATAIN$(3) = "THREE" 
LET DATAIN$(4) = "FOUR" 
LET DATAIN$(5) = "FIVE" 
GOSUB STOREDATA 
GOSUB GETDATA 
FOR I = 1 TO SIZE 
IF DATAIN$(I) <> DATAOUT$(I) THEN 
PRINT #ZPLPORT: "^XA^FO100,100^A0N,50,50^FDERROR:"; 
PRINT #ZPLPORT: DATAOUT$(I);"^XZ" 
END IF 
NEXT I 
END 
REM **** SUBROUTINE STOREDATA **************************  
REM INPUT: ZPLPORT, DATAIN$, SIZE, FILENAME$ ***********  
SUB STOREDATA  
PRINT #ZPLPORT: "^XA^DF" & FILENAME$ & "^FS" 
PRINT #ZPLPORT: "^FX"; SIZE; "^FS" 
FOR I = 1 TO SIZE 
PRINT #ZPLPORT: "^FX" & DATAIN$(I) & "^FS" 
NEXT I 
PRINT #ZPLPORT: "^XZ" 
RETURN 
REM **** SUBROUTINE GETDATA - ************************** 
REM INPUT: ZPLPORT, FILENAME$ **************************  
REM ** OUTPUT: DECLARES AND FILLS DATAOUT$ AND FILLS SIZE  
SUB GETDATA  
PRINT #ZPLPORT: "^XA^HF" & FILENAME$ & "^XZ" 
SLEEP 1 
LET RESULT$ = "" 
FOR J = 1 TO 25 
LET A = READ(ZPLPORT,TEMP$,5000) 
LET RESULT$ = RESULT$ & TEMP$ 
IF POS(RESULT$,"^XZ") <> 0 THEN 
EXIT FOR 
END IF 
SLEEP 1 
NEXT J 
LET RESULT$(1:POS(RESULT$,"^FX")+2) = "" 
LET SIZE = VAL(EXTRACT$(RESULT$,"","^"))  
DECLARE STRING DATAOUT$(SIZE)  
FOR I = 1 TO SIZE  
LET RESULT$(1:POS(RESULT$,"^FX")+2) = "" 
LET DATAOUT$(I) = EXTRACT$(RESULT$,"","^")  
NEXT I  
LET RESULT$ = "" 
LET TEMP$ = "" 
RETURN