MMCC MASTHEAD
Mid-Michigan Computer Consultants - Bay City, Michigan
 


CONTENTS       (old style)
Mid-Michigan Computer Consultants
509 Center
Bay City, Michigan

Sales (989) 892-9242
Support (989) 686-8860

Plb-0375.cfm v1.0


plb-t010.cfm
 

ANSI Standard PL/B Language and Visual PL/B

Explode instruction


PL/B EXPLODE INSTRUCTION

April 22, 2011

The EXPLODE instruction is worth some attention.
This is a place holder for that discussion
From a discussion on the Sunbelt Forum 4/20/2011

From Stuart Elliott       CenterStone, Inc.
Look at his use of EXPLODE in the following discussion of FINDDIR
and how he steps through the variable.
Regarding FINDDIR, This is what I do all the time:
sFNlist   dim   ^100
filename  dim    260
filename1 dim    260
filename2 dim    260
nwork12   form    12

    pack filename with "c:\data\*.*"
    move      n0 to nwork12
    loop
      add     "100" to nwork12    // make it bigger
      dfree   sFNlist             // reset DIM
      dmake   sFNlist,nwork12     // make the target DIM
      finddir filename to sFNlist,mode=2
    repeat while ( eos )          // target DIM not big enough; try again 


Then, to process the filename list:
    loop
      explode  sFNlist by "|" into filename
      fsave
      splice   "",filename,1            // remove leading 'f'
      pack     filename1 with "c:\data\",filename
      pack     filename2 with "\\server\folder\",filename
      copyfile filename1,filename2
      frestore
    repeat until ( zero ) 




Plb-0375.cfm v1.0

Write to MMCC Technical Support at:               Send e-mail to MMCC.
MMCC - Technical Support
600 W. Midland
Bay City, MI 48708
(989) 686-8860
© 1997 - 2021 MMCC - All Rights Reserved


Debugging Information
ColdFusion Server Enterprise 2021,0,0,323925
Template /pl-b/plb-0375.cfm
Time Stamp 02-Aug-21 08:38 PM
Locale English (US)
User Agent CCBot/2.0 (https://commoncrawl.org/faq/)
Remote IP 3.231.230.177
Host Name 3.231.230.177


Execution Time

Total Time Avg Time Count Template
0 ms 0 ms 1 D:/Websites/bcra-mlscom/mmcctech/PL-B/Plb-t010.cfm
0 ms 0 ms 1 D:/Websites/bcra-mlscom/mmcctech/PL-B/Plb-t900.cfm
0 ms 0 ms 1 top level D:\Websites\bcra-mlscom\mmcctech\pl-b\plb-0375.cfm
0 ms  STARTUP, PARSING, COMPILING, LOADING, & SHUTDOWN
0 ms  TOTAL EXECUTION TIME
red = over 250 ms average execution time


Scope Variables

CGI Variables:
AUTH_PASSWORD=
AUTH_TYPE=
AUTH_USER=
CERT_COOKIE=
CERT_FLAGS=
CERT_ISSUER=
CERT_KEYSIZE=
CERT_SECRETKEYSIZE=
CERT_SERIALNUMBER=
CERT_SERVER_ISSUER=
CERT_SERVER_SUBJECT=
CERT_SUBJECT=
CF_TEMPLATE_PATH=D:\Websites\bcra-mlscom\mmcctech\pl-b\plb-0375.cfm
CONTENT_LENGTH=0
CONTENT_TYPE=
CONTEXT_PATH=
GATEWAY_INTERFACE=CGI/1.1
HTTPS=off
HTTPS_KEYSIZE=
HTTPS_SECRETKEYSIZE=
HTTPS_SERVER_ISSUER=
HTTPS_SERVER_SUBJECT=
HTTP_ACCEPT=text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
HTTP_ACCEPT_ENCODING=br,gzip
HTTP_ACCEPT_LANGUAGE=en-US,en;q=0.5
HTTP_CONNECTION=Keep-Alive
HTTP_COOKIE=
HTTP_HOST=mmcctech.com
HTTP_REFERER=
HTTP_URL=/pl-b/plb-0375.cfm
HTTP_USER_AGENT=CCBot/2.0 (https://commoncrawl.org/faq/)
LOCAL_ADDR=192.168.162.152
PATH_INFO=
PATH_TRANSLATED=D:\Websites\bcra-mlscom\mmcctech\pl-b\plb-0375.cfm
QUERY_STRING=
REMOTE_ADDR=3.231.230.177
REMOTE_HOST=3.231.230.177
REMOTE_USER=
REQUEST_METHOD=GET
SCRIPT_NAME=/pl-b/plb-0375.cfm
SERVER_NAME=mmcctech.com
SERVER_PORT=80
SERVER_PORT_SECURE=0
SERVER_PROTOCOL=HTTP/1.1
SERVER_SOFTWARE=Microsoft-IIS/10.0
WEB_SERVER_API=
Session Variables:
PLB_PRIVDIAG=0
Debug Rendering Time: 15 ms