*******************************************************************************
* This software is the copyrighted property of Jan Werner Data Processing *
* and is provided for demonstration, evaluation and educational use only. *
*******************************************************************************
JWDP QGEN Version 1.51M DEMO Release 10075 S/N 00000
Copyright (C) 1987-2000, Trewhella, Cohen & Arbuckle, Inc.
Copyright (C) 2000-2001, Jan Werner Data Processing
All rights reserved. Any modification or reproduction in whole or in part
without the written permission of the copyright owner is prohibited.
C:\BIN\QGEND.EXE rtssgen1.qgs /# PERIOD 25 /#
Start Time: 14:28:36 Wed Apr 18 2001
Processing Spec File: rtssgen1.qgs
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* RTSSGEN1.QGS - 04/18/01 - REV. 2 - Generate Tab Specs for Category Tables *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* To run this, enter: QGEN RTSSGEN1.QGS /# PERIOD 25 /#
*
* This QGEN run uses no input file, it generates the stub variable specs,
* bases and table definitions used to tabulate the current period from
* the information contained in table JWCATS and the first 5 instructions,
* which get updated for each period. No other instructions get changed.
*
* Everything unique to the current period is contained in the included file,
* so that is the only file that needs to be modified for each new period.
*
* The current period number is passed as the command line dictionary entry
* ## PERIOD and used to identify the include file and name the output files.
*
* This file contains only common specs that do not change between periods.
OUTAP1 rtst2-##PERIOD.qts ( 200 V
LISTING rtssg-##PERIOD.lst
SETUP ADDRMODE c
RUNOPS RECYCLE
******************************************************************************
* Insert spec file containing all elements unique to the current period *
******************************************************************************
#INCLUDE RTSG1-##PERIOD.QGS
Processing Spec File: RTSG1-25.QGS
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* RTSG1-25.QGS - 04/18/01 - REV. 2 - Codes and article titles for period 25 *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* The following 5 instructions must be updated for each new period
1: 261 mov 'January 1991 Issue' Current issue
2: 301c2@'25' all Current period
3: 303c2@'20' all Beginning period for norms
4: 305c2@'25' all Ending period for norms
5: 307c2@'09' all Number pages shown this issue
* Page/Category/Title table - This changes for each period - Period 91-25
* -------------------------------------------------------------------------
* Argument = 2 digit number | Function = Page # (3 chars)
* | 2 spaces (for ratings in GEN5)
* | JW category codes (3 x 2 chars)
* | Article title (42 chars)
*--------------------------------------------------------------------------
TABLE jwcats A=2 F=53 E=20
01 028 16 Do It Yourself - A New Kitchen
02 040 0513 Vitamins That Help You Stay Thin
03 060 2935 Kitchen Primer: Rice That Stays Fluffy
04 070 1358 He's a Crown Prince and he Cooks Too!
05 078 3035 Mediterranean Fish Soup in 30 Minutes
06 090 040613The New Cooking New Guide to Europe
07 102 3135 Quick and Easy Winter Squash Soup
08 105 5813 The First Lady's Favorite Meals
09 114 0613 New England Vacation Spots
END
Processing Spec File: rtssgen1.qgs
******************************************************************************
* The remainder of this spec file will not change from period to period *
* unless the basic table layout is changed or new categories are added. *
******************************************************************************
* Table of Category Code Titles (Abbreviated)
* -----------------------------
TABLE jwcodes A=2 F=35 E=60
04 FOREIGN TRAVEL
05 HEALTH & SCIENCE
06 TRAVEL & LEISURE
13 MAIN FEATURE ARTICLES
16 DO IT YOURSELF
29 KITCHEN PRIMER
30 RAPID GOURMET
31 COOKING THE EASY WAY
35 COOKING WITH PICTURES
58 CELEBRITY FEATURES
END
* Table of spec line templates for QTAB-II specs
* ----------------------------------------------
TABLE specmask A=2 F=80 E=60
01 003c2@'&&'&018c3='pg#' B1
02 023c2@-3'cc' 3
11 S
12 _IA_003c2@'&&' B2 AVERAGE FOR CURRENT ISSUE:
13 TCURRENT ARTICLES vs. PAST 6 MONTH CATEGORY NORMS
14 END
16 VAR read&& L B32
17 003c2r'bb;ee' TTotal Readership Sample -
20 END
21 TABLE
22 MERGE PCELLS A.1 WT sample \
23 TCELLS F,U RANK TT \
24 ZCELLS ' ' SINGLE \
25 TITLE B2,S,H,B1 POST H,S
26 R&&-GR jwcat&& hreadx subt-1 read&&
31 END
END
* -----------------------------------------------------------------------------
* The instructions that follow will write out the QTAB spec file by looping
* through the tables defined previously for each page defined in table JWCATS
* for the current issue.
* This is all accomplished during the EOJ recycle pass - No input file is used
* -----------------------------------------------------------------------------
6: sel1 all Turn on output in RECYCLE pass
7: z1 add 307c2 Load # pages for loop limit
* Write out stub VAR statememt line for current period
8: 001c200* all Clear output area
9: 001 mov 'VAR jwcat&& L S45R32'
10: 010 mov 301c2 Load Period code in VAR name
11: wrt all
12: 001c200* all Clear output area
* The following section retrieves the page/code/title information for each
* article in the current issue and creates the actual stub specs & labels.
* Spec definition templates are retrieved from TABLE specmask.
* Page #, category code and article tile are retrieved from TABLE jwcats.
* Category names are retrieved from TABLE jwcodes.
* The current period code is inserted where appropriate.
13: 309c2 add k0 Set page counter to zero
14: 000 PP-z1 loop 000 000 000 000
15: 001c200* all Clear output area
16: 309c2 add 309c2 k1 Increment counter
17: 201 tlu 309c2 jwcats Look up Article Info
18: 311c2 add k1 01 = Article line
19: 001 tlu 311c2 specmask Load Article specs
20: 008 mov 301c2 Current Period
21: 019 mov 201c3 Page # in Specs
22: 034 ed 201c3'XXX' Page # in Text
23: 039 mov 212c45 Article title
24: wrt all Write it out
25: 001c200* all Clear output area
26: 311c2 add k2 02 = Category line
27: 001 tlu 311c2 specmask Load Category specs
28: 000 PC-3 loop 002 000 Category lines
29: skpPC and 206c2b Skip if no category
30: 010 mov 206c2 Category code
31: 043 tlu 206c2 jwcodes Category name
32: wrt all Write it out
33: _PC_ nop
34: _PP_ nop
* The following section writes out the end of the stub variable
* and the table definitions for the current period.
* Spec definition templates are retrieved from TABLE specmask.
* The current period code is inserted where appropriate.
35: 311c2 add k11 Set counter to 11
36: 001 tlu 311c2 specmask Load spec line
37: 001c 1-150 loop 000 For max width of 150
38: 034 mov '_' Run underline across
39: wrt all Write it out
40: 000 SX-60 loop 000 000 Remaining specs
41: 001c200* all Clear output area
42: 311c2 add 311c2 k1 Increment counter
43: 001 tlu 311c2 specmask Load spec line
44: skpSX and 001c80b Skip if nothing
* Load period text in base
45: 059 cmov 050c8@'Sample -' 261c30 Readership
* Load current period where appropriate:
46: 012 cmov 012c2@'&&' 301c2 Stub average line
47: 010 cmov 010c2@'&&' 301c2 Base VAR names
48: 002 cmov 002c2@'&&' 301c2 Table name
49: 016 cmov 016c2@'&&' 301c2 Table Stub
50: 039 cmov 039c2@'&&' 301c2 Table Base
* Load norm period range end points
51: 008 cmov 008c2@'bb' 303c2 Beginning
52: 011 cmov 011c2@'ee' 305c2 End
53: wrt all Write it out
54: _SX_ nop
55: drp1 all Turn off output
Run Type: Normal
INPUT/OUTPUT COUNTS
INPUT CARD FILE: 0 CASES, 0 CARDS
INPUT TAPE FILE: 0 CASES
OUTPUT FILE 1: 42 CASES
THERE WERE 0 CLEANING MESSAGES INVOLVING 0 CASES
TIMES RULE BROKEN
SWITCHES
SWA = 0 SWB = 0 SWC = 0 SWD = 0 SWE = 0 SWF = 0 SWG = 0 SWH = 0 SWI = 0 SWJ = 0 SWK = 0 SWL = 0
SWM = 0 SWN = 0 SWO = 0 SWP = 0 SWQ = 0 SWR = 0 SWS = 0 SWT = 0 SWU = 0 SWV = 0 SWW = 0 SWX = 0
SWY = 0 SWZ = 0 SW0 = 0 SW1 = 0 SW2 = 0 SW3 = 0 SW4 = 0 SW5 = 1 SW6 = 0 SW7 = 0 SW8 = 0 SW9 = 0
COUNTERS
Z001= 9 Z002= 0 Z003= 0 Z004= 0 Z005= 0
Z996= 0 Z997= 0 Z998= 0 Z999= 0 Z1000= 0
Stop Time: 14:28:37 Wed Apr 18 2001
Elapsed Time: 0 Minutes 1 Seconds
QGEN End Of Run