I'm in need of some insight.
I have to maintain a large amount of OCL code until we finish modernizing to CLLE and I'm re-writing some of the code on a nightly procedure (MANY procedures).
There is a block of code that does a GSORT:
************************************************** ********************
* SORT INTO WEEKLY BUCKET ORDER *
************************************************** ********************
// IF DATAF1-WO17B?WS? DELETE WO17B?WS?,F1
*
// LOAD #GSORT
// FILE NAME-INPUT,LABEL-WO17A?WS?,DBLOCK-10
// FILE NAME-OUTPUT,LABEL-WO17B?WS?,RECORDS-500,EXTEND-250
// RUN
HSORTR 24A 3X 256
FNC 182 187 SORT DATE NUMBER = 6
FNC 188 193 SORT DATE = 6
FNC 167 167 ORDER COMPLETE CODE 1
FNC 129 131 ORDER CODE = 3
FNC 1 6 SALES ORDER NUMBER = 6
FNC 7 8 LINE NUMBER = 2
FDC 1 256
/*
which has that /* ending in it. I see /* referenced in the S/36 manual that indicates the end of data entered from the keyboard or the end of inline source data. Must be the last line of data being entered from the keyboard. I recognize that as a beginning of a comment block and have removed it in several instances. I figured it was somebody just copying/pasting code and had forgotten to remove the comment start. Anyway, is it needed for the sort to happen? Will the removal of it cause my code to blow up? All the code I've changed with it in it has not been placed in production and any testing I've done, it seems to run okay, but I haven't been watching for it in particular. Does anyone recall if that is necessary? Do I need to go back and put it back??
Thanks.
Rob
I have to maintain a large amount of OCL code until we finish modernizing to CLLE and I'm re-writing some of the code on a nightly procedure (MANY procedures).
There is a block of code that does a GSORT:
************************************************** ********************
* SORT INTO WEEKLY BUCKET ORDER *
************************************************** ********************
// IF DATAF1-WO17B?WS? DELETE WO17B?WS?,F1
*
// LOAD #GSORT
// FILE NAME-INPUT,LABEL-WO17A?WS?,DBLOCK-10
// FILE NAME-OUTPUT,LABEL-WO17B?WS?,RECORDS-500,EXTEND-250
// RUN
HSORTR 24A 3X 256
FNC 182 187 SORT DATE NUMBER = 6
FNC 188 193 SORT DATE = 6
FNC 167 167 ORDER COMPLETE CODE 1
FNC 129 131 ORDER CODE = 3
FNC 1 6 SALES ORDER NUMBER = 6
FNC 7 8 LINE NUMBER = 2
FDC 1 256
/*
which has that /* ending in it. I see /* referenced in the S/36 manual that indicates the end of data entered from the keyboard or the end of inline source data. Must be the last line of data being entered from the keyboard. I recognize that as a beginning of a comment block and have removed it in several instances. I figured it was somebody just copying/pasting code and had forgotten to remove the comment start. Anyway, is it needed for the sort to happen? Will the removal of it cause my code to blow up? All the code I've changed with it in it has not been placed in production and any testing I've done, it seems to run okay, but I haven't been watching for it in particular. Does anyone recall if that is necessary? Do I need to go back and put it back??
Thanks.
Rob
Comment